X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2Fsubs-auto.git;a=blobdiff_plain;f=t%2F10-base.t;h=5d09c90b109b0332eacd645cbd6b3d15b61043eb;hp=c96ba8cd985e9e69eef237ecb96c6b0dbaea1def;hb=e991bf497476b7c8b8a9558ac58dc1989c558e6e;hpb=4e809980ca15233cb1376723269be02a055dca7e diff --git a/t/10-base.t b/t/10-base.t index c96ba8c..5d09c90 100644 --- a/t/10-base.t +++ b/t/10-base.t @@ -196,7 +196,7 @@ is($foo, 7, 'foo really was executed'); $warn = undef; eval { - local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ }; + local $SIG{__WARN__} = sub { $warn = $_[0] =~ /Subroutine\s+\S+redefined/ }; local *qux = sub { $qux = $_[0] }; qux 5; }; @@ -236,7 +236,7 @@ my $cb = eval { no strict; no warnings 'reserved'; blech; - } + } } }; _got_ok('compiling to bareword');