diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-07 19:49:53 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-07 19:49:53 +0000 |
| commit | 43a954afd829e8b7def214b1283f45da65911de2 (patch) | |
| tree | 8d7e12bfb0f884e5d80a3a5d6e35b5c0140d9b3e /t | |
| parent | 68ead86506151a439ca0b6bb73647ace79ee2296 (diff) | |
| download | perl-43a954afd829e8b7def214b1283f45da65911de2.tar.gz | |
use warnings instead of $^W.
p4raw-id: //depot/perl@6543
Diffstat (limited to 't')
| -rw-r--r-- | t/op/bless.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/bless.t b/t/op/bless.t index 7e7de4f724..a5813d6ebf 100644 --- a/t/op/bless.t +++ b/t/op/bless.t @@ -94,7 +94,7 @@ print expected(bless({}, $1), "E", "HASH"), "ok 19\n"; print expected(bless([]), 'main', "ARRAY"), "ok 22\n"; { local $SIG{__WARN__} = sub { push @w, join '', @_ }; - local $^W = 1; + use warnings; $m = bless []; print expected($m, 'main', "ARRAY"), "ok 23\n"; |