X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy.pm;h=06bc931e752cf6936729e5c2547b54ea60963b04;hb=abcb63dcd6f6e91c2ae3b294df01a653bd7d28a2;hp=21b1a0f11dbdd072abe87d565e1358a123a06ce7;hpb=73eab984d5a426f25fca2077ea1af40aa9257e6c;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 21b1a0f..06bc931 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.14 2006-07-27 15:51:05 mike Exp $ +# $Id: IRSpy.pm,v 1.15 2006-09-18 16:30:25 mike Exp $ package ZOOM::IRSpy; @@ -74,7 +74,7 @@ sub targets { $this->log("irspy", "setting explicit list of targets '$targetList'"); $this->{allrecords} = 0; - my @targets = split /\s+/, $targetList; + my @targets = grep { $_ ne "" } split /\s+/, $targetList; my @qlist; foreach my $target (@targets) { my($host, $port, $db, $newtarget) = _parse_target_string($target);