Changeset 9414

Timestamp:

2005-03-14T14:06:45+13:00 (19 years ago)

Author:

jrm21

Message:

oops, removed a testing/debugging statement

File:

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

trunk/gsdl/perllib/multiread.pm

@@ -63 +63 @@
 sub set_encoding {
     my $self = shift;
-    my $enc = shift;
-    if ($enc eq 'unicode_le') {
-    $enc='unicode';
-    $self->{'bigendian'} = 0;
-    }
-    $self->{'encoding'} = $enc;
+    $self->{'encoding'} = shift;
 }