-# $Id: IRSpy.pm,v 1.17 2006-09-22 15:02:24 mike Exp $
+# $Id: IRSpy.pm,v 1.18 2006-09-25 12:44:38 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; # This written through the ref
+ $target = $newtarget; # This is written through the ref
}
push @qlist,
(qq[(host = "$host" and port = "$port" and path="$db")]);