diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-04 18:56:15 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-04 18:56:15 +0000 |
| commit | ae79846703a543a04b4fe449abfd6b1e08a9e149 (patch) | |
| tree | 59573ff06500f775bc65ae7de289abbf3153dfbd /t/io/utf8.t | |
| parent | 4a1add9022ee415d25c2a738be3ef391af77dfef (diff) | |
| download | perl-ae79846703a543a04b4fe449abfd6b1e08a9e149.tar.gz | |
Downgrade "Wide character in print" to a warning.
p4raw-id: //depot/perlio@9549
Diffstat (limited to 't/io/utf8.t')
| -rwxr-xr-x | t/io/utf8.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t index 52b641d2f1..ac5cde7a6e 100755 --- a/t/io/utf8.t +++ b/t/io/utf8.t @@ -135,8 +135,9 @@ print "ok 21\n"; # Now let's make it suffer. open F, ">", "a" or die $!; -eval { print F $a; }; -print "not " unless $@ and $@ =~ /Wide character in print/i; +my $w; +eval {local $SIG{__WARN__} = sub { $w = $_[0] }; print F $a; }; +print "not " if ($@ || $w !~ /Wide character in print/i); print "ok 22\n"; } |