fixed syntax error :-(

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index 10dd0ef9b25d8bd268d2e39d38ba2cfb8f166d66..ee2e7e5ec67c52798041a9cd92e67b6be228be6e 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -183,7 +183,7 @@ sub process
 
                        my $t = cltounix($f[5], $f[6]);
                        my $stream = next_transno($f[2]);
-                       $f[13] = $self->call unless $f[13] && $f[13] gt ' '
+                       $f[13] = $self->call unless $f[13] && $f[13] gt ' ';
                        my $ref = DXMsg->alloc($stream, uc $f[3], $f[4], $t, $f[7], $f[8], $f[13], '0', $f[11]);
                        
                        # fill in various forwarding state variables