Change 11319 by jhi@alpha on 2001/07/12 17:08:15
The problem seems to be in PerlIO::Layer::->find() not
accepting the ":encoding(blurflur)" arguments.
Affected files ...
... //depot/perl/lib/PerlIO.pm#7 edit
... //depot/perl/lib/open.pm#19 edit
Differences ...
==== //depot/perl/lib/PerlIO.pm#7 (text) ====
==== //depot/perl/lib/open.pm#19 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Thu Jul 12 11:15:05 2001
+++ perl/lib/open.pm Thu Jul 12 11:15:05 2001
@@ -69,20 +69,18 @@
if ($locale_encoding =~ /^utf-?8$/i) {
$layer = "utf8";
} else {
- $layer = "encoding";
+ $layer = "encoding($locale_encoding)";
}
}
unless(PerlIO::Layer::->find($layer)) {
carp("Unknown discipline layer '$layer'");
}
- if (defined $locale_encoding) {
- $layer = "$layer($locale_encoding)";
- }
push(@val,":$layer");
if ($layer =~ /^(crlf|raw)$/) {
$^H{"open_$type"} = $layer;
}
}
+ # print "# type = $type, val = @val\n";
if ($type eq 'IN') {
$in = join(' ',@val);
}
End of Patch.
