diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-22 13:20:53 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-09-23 07:33:15 +0000 |
| commit | 00243fce2e6342da5c299fe3c6bd180ff12ba811 (patch) | |
| tree | 68439bcc815b30bd766146f0810868e3fe6dc34e /lib/open.pm | |
| parent | bff5667cab927076651176299f898dee445d6b01 (diff) | |
| download | perl-00243fce2e6342da5c299fe3c6bd180ff12ba811.tar.gz | |
Typo fix.
Subject: [PATCH] Re: Smoke [5.9.2] 23330 FAIL(X) hp-ux 11.11/64 (PA-2.0/64/2 cpu)
Message-ID: <20040922112053.686562b6@valis.local>
p4raw-id: //depot/perl@23334
Diffstat (limited to 'lib/open.pm')
| -rw-r--r-- | lib/open.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/open.pm b/lib/open.pm index 35d33dd323..092ec48d91 100644 --- a/lib/open.pm +++ b/lib/open.pm @@ -37,7 +37,7 @@ sub _drop_oldenc { return unless @new >= 1 && $new[-1] =~ /^:encoding\(.+\)$/; my @old = PerlIO::get_layers($h); return unless @old >= 3 && - $old[-1] eq 'utf8'; + $old[-1] eq 'utf8' && $old[-2] =~ /^encoding\(.+\)$/; my ($loname, $lcname) = _get_encname($old[-2]); unless (defined $lcname) { # Should we trust get_layers()? |