diff options
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"; |