From 43a954afd829e8b7def214b1283f45da65911de2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 7 Aug 2000 19:49:53 +0000 Subject: [PATCH] use warnings instead of $^W. p4raw-id: //depot/perl@6543 --- t/op/bless.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/op/bless.t b/t/op/bless.t index 7e7de4f..a5813d6 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"; -- 2.7.4