fix PC16 output problem

[spider.git] / perl / DXProtout.pm

diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm
index 786d78c0f8d08c8be09704d6fdbd81bd8bd06567..a9478812d13cb513f4541ceeffaaa15de3de074c 100644 (file)
--- 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;