Changeset 20579
- Timestamp:
- 2009-09-10T10:52:26+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/multiread.pm
r16793 r20579 286 286 $$outputref .= <$handle>; 287 287 $/ = "\n"; 288 288 289 } 289 290 … … 317 318 318 319 # everything else uses unicode::convert2unicode 319 $$decoded_text_ref .= &unicode::unicode2utf8 (&unicode::convert2unicode ($self->{'encoding'}, \$raw_text)); 320 my $unicode_text = &unicode::convert2unicode ($self->{'encoding'}, \$raw_text); 321 322 $$decoded_text_ref .= &unicode::unicode2utf8 ($unicode_text); 323 324 ### print STDERR "!!! decoded ", join(":",map { ord($_) } split(//,$$decoded_text_ref)), "\n"; 320 325 } 321 326
Note:
See TracChangeset
for help on using the changeset viewer.