Changeset 3095 for trunk/gsdl/perllib/multiread.pm

Timestamp:

2002-04-24T13:45:59+12:00 (22 years ago)

Author:

jrm21

Message:

Added check for reading an empty file (ie read_line() returns undef).

File:

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

trunk/gsdl/perllib/multiread.pm

@@ -230 +230 @@
     # special case for the first line of utf8 text to detect whether
     # the file is in utf8 or unicode
-    $$text .= $self->read_line ();
+    
+    # possible to have no text here...
+    my $read_text = $self->read_line ();
+    $$text .= $read_text if (defined($read_text));
     }