X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXProtout.pm;h=a9478812d13cb513f4541ceeffaaa15de3de074c;hb=95a03441d20680a914673d1b6bbf46c0d673ad4c;hp=786d78c0f8d08c8be09704d6fdbd81bd8bd06567;hpb=febdc9bd8f6cd065d217ba089fab4361e9980f35;p=spider.git

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 786d78c0..a9478812 100644
--- a/perl/DXProtout.pm
+++ b/perl/DXProtout.pm
@@ -78,8 +78,8 @@ sub pc16
 	my $ncall = $node->call;
 	my @out;
 
-	my $str = "PC16^$ncall";
 	while (@_) {
+		my $str = "PC16^$ncall";
 		for ( ; @_ && length $str < 200; ) {
 			my $ref = shift;
 			$str .= sprintf "^%s %s %d", $ref->call, $ref->conf ? '*' : '-', $ref->here;