From: Abigail <abigail@abigail.be>
Date: Fri, 1 Sep 2000 13:07:32 +0000 (-0400)
Subject: Re: [PATCH lib/overload.pm] Sanaty checking of arguments to overload::constant
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cccdd0804c01f959ef2bcf1b45a2fb56dc4d40a1;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH lib/overload.pm] Sanaty checking of arguments to overload::constant
Message-ID: <20000901170732.18249.qmail@foad.org>

p4raw-id: //depot/perl@6983
---

diff --git a/t/pragma/overload.t b/t/pragma/overload.t
index 7221d78..c142a64 100755
--- a/t/pragma/overload.t
+++ b/t/pragma/overload.t
@@ -939,7 +939,7 @@ unless ($aaa) {
 {
     # check the Odd number of arguments for overload::constant warning
     my $a = "" ;
-    $SIG{__WARN__} = sub {$a = @_[0]} ;
+    local $SIG{__WARN__} = sub {$a = @_[0]} ;
     $x = eval ' overload::constant "integer" ; ' ;
     test($a eq "") ; # 210
     use warnings 'overload' ;
@@ -950,7 +950,7 @@ unless ($aaa) {
 {
     # check the `$_[0]' is not an overloadable type warning
     my $a = "" ;
-    $SIG{__WARN__} = sub {$a = @_[0]} ;
+    local $SIG{__WARN__} = sub {$a = @_[0]} ;
     $x = eval ' overload::constant "fred" => sub {} ; ' ;
     test($a eq "") ; # 212
     use warnings 'overload' ;
@@ -961,7 +961,7 @@ unless ($aaa) {
 {
     # check the `$_[1]' is not a code reference warning
     my $a = "" ;
-    $SIG{__WARN__} = sub {$a = @_[0]} ;
+    local $SIG{__WARN__} = sub {$a = @_[0]} ;
     $x = eval ' overload::constant "integer" => 1; ' ;
     test($a eq "") ; # 214
     use warnings 'overload' ;