Changeset 16793

Timestamp:

2008-08-14T16:45:50+12:00 (16 years ago)

Author:

davidb

Message:

Double nested function call broken down in to two separate lines to help debugging

File:

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

gsdl/trunk/perllib/multiread.pm

@@ -222 +222 @@
     $self->{'first'} = 0;
 
-    my $b1 = ord(getc ($handle));
+    my $gc = getc ($handle);
+    my $b1 = ord($gc);
     my $b2;
     my $b3;