Skip this test if "use open" fails due to an unknown encoding

p4raw-id: //depot/perl@30233
Perl · Feb 12, 2007 · 771ed9f · 771ed9f
1 parent 3ba77b8
commit 771ed9f
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/ext/PerlIO/encoding/t/nolooping.t b/ext/PerlIO/encoding/t/nolooping.t
@@ -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"; # &bdquo;
+if ($warn !~ /Cannot find encoding/) {
+    if (-e '/dev/null') { open STDERR, '>', '/dev/null' }
+    warn "# \x{201e}\n"; # &bdquo;
+}
 ok(1); # we got that far