From cccdd0804c01f959ef2bcf1b45a2fb56dc4d40a1 Mon Sep 17 00:00:00 2001 From: Abigail Date: Fri, 1 Sep 2000 09:07:32 -0400 Subject: Re: [PATCH lib/overload.pm] Sanaty checking of arguments to overload::constant Message-ID: <20000901170732.18249.qmail@foad.org> p4raw-id: //depot/perl@6983 --- t/pragma/overload.t | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/pragma/overload.t b/t/pragma/overload.t index 7221d78a77..c142a64c0c 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' ; -- cgit v1.2.1