Change 11617 by jhi@alpha on 2001/08/09 11:08:51
Integrate change #11519 from perlio:
Avoid testing for (non-)existance of "encoding(xxxx)"
layer is called "encoding" the (xxxx) is an argument.
Affected files ...
... //depot/perl/lib/open.pm#20 integrate
Differences ...
==== //depot/perl/lib/open.pm#20 (text) ====
Index: perl/lib/open.pm
--- perl/lib/open.pm.~1~ Thu Aug 9 05:15:05 2001
+++ perl/lib/open.pm Thu Aug 9 05:15:05 2001
@@ -71,9 +71,10 @@
} else {
$layer = "encoding($locale_encoding)";
}
- }
- unless(PerlIO::Layer::->find($layer)) {
- carp("Unknown discipline layer '$layer'");
+ } else {
+ unless(PerlIO::Layer::->find($layer)) {
+ carp("Unknown discipline layer '$layer'");
+ }
}
push(@val,":$layer");
if ($layer =~ /^(crlf|raw)$/) {
End of Patch.
