Change 11292 by jhi@alpha on 2001/07/12 04:47:43
Now the :locale pseudolayer *almost* works...
Affected files ...
... //depot/perl/lib/open.pm#16 edit
Differences ...
==== //depot/perl/lib/open.pm#16 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Wed Jul 11 23:00:05 2001
+++ perl/lib/open.pm Wed Jul 11 23:00:05 2001
@@ -67,12 +67,15 @@
if ($locale_encoding =~ /^utf-?8$/i) {
$layer = "utf8";
} else {
- $layer = "encoding($locale_encoding)";
+ $layer = "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;
End of Patch.
