Change 11682 by jhi@alpha on 2001/08/15 13:26:00
The #11673 necessitated a test tweak.
Affected files ...
... //depot/perl/t/io/utf8.t#14 edit
Differences ...
==== //depot/perl/t/io/utf8.t#14 (xtext) ====
Index: perl/t/io/utf8.t
--- perl/t/io/utf8.t.~1~ Wed Aug 15 07:30:06 2001
+++ perl/t/io/utf8.t Wed Aug 15 07:30:06 2001
@@ -138,7 +138,11 @@
# Now let's make it suffer.
open F, ">", "a" or die $!;
my $w;
-eval {local $SIG{__WARN__} = sub { $w = $_[0] }; print F $a; };
+{
+ use warnings 'utf8';
+ local $SIG{__WARN__} = sub { $w = $_[0] };
+ print F $a;
+}
print "not " if ($@ || $w !~ /Wide character in print/i);
print "ok 22\n";
}
End of Patch.
