From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 7 Aug 2000 19:49:53 +0000 (+0000)
Subject: use warnings instead of $^W.
X-Git-Tag: accepted/trunk/20130322.191538~34638
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=43a954afd829e8b7def214b1283f45da65911de2;p=platform%2Fupstream%2Fperl.git

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