From b5d35f645df7e9630f77ec7f364ba27378775211 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Tue, 26 Sep 2006 09:08:36 +0000 Subject: [PATCH] $this is now passed into new IRSpy::Record() --- lib/ZOOM/IRSpy.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 53c8fe0..22c3cd8 100644 --- 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; @@ -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)} = - new ZOOM::IRSpy::Record($target, $zeerex); + new ZOOM::IRSpy::Record($this, $target, $zeerex); 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"; - $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'"); } -- 1.7.10.4