X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=lib%2FZOOM%2FIRSpy%2FTask%2FRetrieve.pm;h=1580e94fba15d195269b48a2550072c39f3a1ee6;hb=8d22b67928c9e2d65e90308dd7560dcd1d4d797a;hp=05e0e8f41e73615dfdb2d7b125fa6f5686d18068;hpb=46cc021fdda6cd3456b8446826ae609ee477249e;p=irspy-moved-to-github.git diff --git a/lib/ZOOM/IRSpy/Task/Retrieve.pm b/lib/ZOOM/IRSpy/Task/Retrieve.pm index 05e0e8f..1580e94 100644 --- a/lib/ZOOM/IRSpy/Task/Retrieve.pm +++ b/lib/ZOOM/IRSpy/Task/Retrieve.pm @@ -1,4 +1,3 @@ -# $Id: Retrieve.pm,v 1.5 2007-05-09 11:02:41 mike Exp $ package ZOOM::IRSpy::Task::Retrieve; @@ -32,7 +31,7 @@ sub new { $this->{rs} = $rs; $this->{index0} = $index0; # Save initial record-syntax for render()'s benefit - $this->{rs} = $this->{options}->{preferredRecordSyntax}; + $this->{syntax} = $this->{options}->{preferredRecordSyntax}; return $this; } @@ -58,7 +57,7 @@ sub run { sub render { my $this = shift(); - my $syntax = $this->{rs}; + my $syntax = $this->{syntax}; $syntax = defined $syntax ? "'$syntax'" : "undef"; return ref($this) . "(" . $this->{index0} . ", $syntax)"; }