-# $Id: IRSpy.pm,v 1.7 2006-07-18 11:10:38 mike Exp $
+# $Id: IRSpy.pm,v 1.9 2006-07-21 11:28:16 mike Exp $
package ZOOM::IRSpy;
my($host, $port, $db, $newtarget) = _parse_target_string($target);
if ($newtarget ne $target) {
$this->log("irspy_debug", "rewriting '$target' to '$newtarget'");
- $target = $newtarget; ### Does this get written through the ref?
+ $target = $newtarget; # This written through the ref
}
push @qlist,
(qq[(host = "$host" and port = "$port" and path="$db")]);
# Can be called with a Connection instead of a target-name
my $conn = $target;
$target = $conn->option("host");
- $this->log("irspy_debug", "record() resolved $conn to '$target'");
}
return $this->{target2record}->{lc($target)};