Fixed console to wrap.

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index a28d36f5992a060608258656165a90be943d1f2e..6ecf0e79ab2a407cb3d2d1d17279091ff8d663cb 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -516,7 +516,8 @@ sub normal
                        my $sfi = unpad($field[3]);
                        my $k = unpad($field[4]);
                        my $i = unpad($field[5]);
-                       my $r = $field[6] =~ /R=(\d+)/ || 0;
+                       my ($r) = $field[6] =~ /R=(\d+)/;
+                       $r = 0 unless $r;
                        my $dupkey = "$d.$sfi$k$i";
                        if ($wwvdup{$dupkey}) {
                                dbg('chan', "Dup WWV Spot ignored\n");