X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=2205cc5bce1e127226599e66a866e9928d571688;hb=17b1614af3840c2c74bee181290eb094f8ed4a00;hp=763c60bda86747a30df086dac5c10f2f11e3c14c;hpb=811077a3d45e4f89012a9169061745b0b42fe97b;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index 763c60bd..2205cc5b 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -331,6 +331,7 @@ sub search my $rec = 0; my $in; while (<$fh>) { + chomp; my @r = split /\^/; ++$rec; if ($dxchan) {