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:
7936f11
)
$this is now passed into new IRSpy::Record()
author
Mike Taylor
<mike@indexdata.com>
Tue, 26 Sep 2006 09:08:36 +0000
(09:08 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Tue, 26 Sep 2006 09:08:36 +0000
(09:08 +0000)
lib/ZOOM/IRSpy.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy.pm
b/lib/ZOOM/IRSpy.pm
index
53c8fe0
..
22c3cd8
100644
(file)
--- a/
lib/ZOOM/IRSpy.pm
+++ b/
lib/ZOOM/IRSpy.pm
@@
-1,4
+1,4
@@
-# $Id: IRSpy.pm,v 1.18 2006-09-25 12:44:38 mike Exp $
+# $Id: IRSpy.pm,v 1.19 2006-09-26 09:08:36 mike Exp $
package ZOOM::IRSpy;
package ZOOM::IRSpy;
@@
-158,7
+158,7
@@
sub initialise {
my $zeerex = _render_record($rs, $i-1, "zeerex");
#print STDERR "making '$target' record with '$zeerex'\n";
$target2record{lc($target)} =
my $zeerex = _render_record($rs, $i-1, "zeerex");
#print STDERR "making '$target' record with '$zeerex'\n";
$target2record{lc($target)} =
- new ZOOM::IRSpy::Record($target, $zeerex);
+ new ZOOM::IRSpy::Record($this, $target, $zeerex);
push @{ $this->{targets} }, $target
if $this->{allrecords};
}
push @{ $this->{targets} }, $target
if $this->{allrecords};
}
@@
-168,7
+168,7
@@
sub initialise {
if (!defined $record) {
$this->log("irspy_debug", "made new record for '$target'");
#print STDERR "making '$target' record without zeerex\n";
if (!defined $record) {
$this->log("irspy_debug", "made new record for '$target'");
#print STDERR "making '$target' record without zeerex\n";
- $target2record{$target} = new ZOOM::IRSpy::Record($target);
+ $target2record{$target} = new ZOOM::IRSpy::Record($this, $target);
} else {
$this->log("irspy_debug", "using existing record for '$target'");
}
} else {
$this->log("irspy_debug", "using existing record for '$target'");
}