Change 30233 by [EMAIL PROTECTED] on 2007/02/12 17:00:09
Skip this test if "use open" fails due to an unknown encoding
Affected files ...
... //depot/perl/ext/PerlIO/encoding/t/nolooping.t#3 edit
Differences ...
==== //depot/perl/ext/PerlIO/encoding/t/nolooping.t#3 (text) ====
Index: perl/ext/PerlIO/encoding/t/nolooping.t
--- perl/ext/PerlIO/encoding/t/nolooping.t#2~30214~ 2007-02-11
09:23:51.000000000 -0800
+++ perl/ext/PerlIO/encoding/t/nolooping.t 2007-02-12 09:00:09.000000000
-0800
@@ -2,9 +2,15 @@
use Test::More tests => 1;
+BEGIN {
+ $SIG{__WARN__} = sub { $warn .= $_[0] };
+}
+
# bug #41442
use PerlIO::encoding;
use open ':locale';
-if (-e '/dev/null') { open STDERR, '>', '/dev/null' }
-warn "# \x{201e}\n"; # „
+if ($warn !~ /Cannot find encoding/) {
+ if (-e '/dev/null') { open STDERR, '>', '/dev/null' }
+ warn "# \x{201e}\n"; # „
+}
ok(1); # we got that far
End of Patch.
