From bbb121e61ea43f6cb1a72ac823e648f33461884b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 22 Sep 2006 15:02:24 +0000 Subject: [PATCH] Better targets() API. --- lib/ZOOM/IRSpy.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 5e28956..d5672e8 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -1,4 +1,4 @@ -# $Id: IRSpy.pm,v 1.16 2006-09-20 16:12:56 mike Exp $ +# $Id: IRSpy.pm,v 1.17 2006-09-22 15:02:24 mike Exp $ package ZOOM::IRSpy; @@ -74,11 +74,11 @@ sub log { # sub targets { my $this = shift(); - my($targetList) = @_; + my(@targets) = @_; - $this->log("irspy", "setting explicit list of targets '$targetList'"); + $this->log("irspy", "setting explicit list of targets ", + join(", ", map { "'$_'" } @targets)); $this->{allrecords} = 0; - my @targets = grep { $_ ne "" } split /\s+/, $targetList; my @qlist; foreach my $target (@targets) { my($host, $port, $db, $newtarget) = _parse_target_string($target); -- 1.7.10.4