use warnings instead of $^W.

p4raw-id: //depot/perl@6543

diff --git a/t/op/bless.t b/t/op/bless.t
index 7e7de4f..a5813d6 100644 (file)
--- 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";