projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8dd2ce9
)
Better targets() API.
author
Mike Taylor
<mike@indexdata.com>
Fri, 22 Sep 2006 15:02:24 +0000
(15:02 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Fri, 22 Sep 2006 15:02:24 +0000
(15:02 +0000)
lib/ZOOM/IRSpy.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy.pm
b/lib/ZOOM/IRSpy.pm
index
5e28956
..
d5672e8
100644
(file)
--- 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;
package ZOOM::IRSpy;
@@
-74,11
+74,11
@@
sub log {
#
sub targets {
my $this = shift();
#
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;
$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);
my @qlist;
foreach my $target (@targets) {
my($host, $port, $db, $newtarget) = _parse_target_string($target);