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

Timestamp:

2009-09-10T10:52:26+12:00 (15 years ago)

Author:

davidb

Message:

Unicode encoding broken down into two steps.

File:

• gsdl/trunk/perllib/multiread.pm (modified) (2 diffs)

gsdl/trunk/perllib/multiread.pm

@@ -286 +286 @@
     $$outputref .=  <$handle>;
     $/ = "\n";
+
 }
 
@@ -317 +318 @@
 
     # everything else uses unicode::convert2unicode
-    $$decoded_text_ref .= &unicode::unicode2utf8 (&unicode::convert2unicode ($self->{'encoding'}, \$raw_text));
+    my $unicode_text = &unicode::convert2unicode ($self->{'encoding'}, \$raw_text);
+
+    $$decoded_text_ref .= &unicode::unicode2utf8 ($unicode_text);
+
+###    print STDERR "!!! decoded ", join(":",map { ord($_) } split(//,$$decoded_text_ref)), "\n";
 }