Changeset 3520

Timestamp:

2002-11-08T13:38:23+13:00 (21 years ago)

Author:

jrm21

Message:

wrong variable name meant we were throwing away the first line of each
document that's read using multiread:read_line... not very good.

File:

• trunk/gsdl/perllib/multiread.pm (modified) (1 diff)

trunk/gsdl/perllib/multiread.pm

@@ -233 +233 @@
     # possible to have no text here...
     my $read_text = $self->read_line ();
-    $$text .= $read_text if (defined($read_text));
+    $$outputref .= $read_text if (defined($read_text));
     }