In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/dcd695b6ec3bf411cdd9b6abe8a93fe4e6bd8092?hp=4055dbce18d26660d937e0dea2aefbb2cd09478d>
- Log ----------------------------------------------------------------- commit dcd695b6ec3bf411cdd9b6abe8a93fe4e6bd8092 Author: Ricardo Signes <[email protected]> Date: Wed Feb 20 12:00:26 2013 -0500 suppress "experimental" warnings for my $_ ----------------------------------------------------------------------- Summary of changes: ext/XS-APItest/t/underscore_length.t | 2 +- ext/arybase/t/akeys.t | 2 +- ext/arybase/t/aslice.t | 2 +- ext/arybase/t/lslice.t | 2 +- t/op/coreamp.t | 8 ++++---- t/op/exec.t | 2 +- t/op/mkdir.t | 2 +- t/op/mydef.t | 2 +- t/op/override.t | 2 +- t/op/reverse.t | 2 +- t/op/state.t | 2 +- t/op/switch.t | 14 +++++++------- t/re/pat_advanced.t | 4 ++-- t/re/pat_rt_report.t | 2 +- t/re/qr.t | 2 +- 15 files changed, 25 insertions(+), 25 deletions(-) diff --git a/ext/XS-APItest/t/underscore_length.t b/ext/XS-APItest/t/underscore_length.t index 32698f9..545b2a3 100644 --- a/ext/XS-APItest/t/underscore_length.t +++ b/ext/XS-APItest/t/underscore_length.t @@ -1,4 +1,4 @@ -use warnings; no warnings 'deprecated'; +use warnings; no warnings 'experimental::lexical_topic'; use strict; use Test::More tests => 4; diff --git a/ext/arybase/t/akeys.t b/ext/arybase/t/akeys.t index 53e9db1..dc490c4 100644 --- a/ext/arybase/t/akeys.t +++ b/ext/arybase/t/akeys.t @@ -1,4 +1,4 @@ -use warnings; no warnings 'deprecated'; +use warnings; no warnings 'deprecated', 'experimental::lexical_topic'; use strict; BEGIN { diff --git a/ext/arybase/t/aslice.t b/ext/arybase/t/aslice.t index f4a507d..462ee3d 100644 --- a/ext/arybase/t/aslice.t +++ b/ext/arybase/t/aslice.t @@ -1,4 +1,4 @@ -use warnings; no warnings 'deprecated'; +use warnings; no warnings 'deprecated', 'experimental::lexical_topic'; use strict; use Test::More tests => 18; diff --git a/ext/arybase/t/lslice.t b/ext/arybase/t/lslice.t index 0db7a07..828ea3e 100644 --- a/ext/arybase/t/lslice.t +++ b/ext/arybase/t/lslice.t @@ -1,4 +1,4 @@ -use warnings; no warnings 'deprecated'; +use warnings; no warnings 'deprecated', 'experimental::lexical_topic'; use strict; use Test::More tests => 12; diff --git a/t/op/coreamp.t b/t/op/coreamp.t index 7b9c1dd..9923df6 100644 --- a/t/op/coreamp.t +++ b/t/op/coreamp.t @@ -86,7 +86,7 @@ sub test_proto { # works in all cases. undef $_; { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = $in; is &{"CORE::$o"}(), $out, "&$o with no args uses lexical \$_"; } @@ -94,7 +94,7 @@ sub test_proto { my $r; $r = sub { if($_[0]) { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = $in; is &{"CORE::$o"}(), $out, "&$o with no args uses the right lexical \$_ under recursion"; @@ -104,7 +104,7 @@ sub test_proto { } }; &$r(0); - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = $in; eval { is "CORE::$o"->(), $out, "&$o with the right lexical \$_ in an eval" @@ -1016,7 +1016,7 @@ like $@, qr'^Undefined format "STDOUT" called', my $warnings; local $SIG{__WARN__} = sub { ++$warnings }; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = 'Phoo'; ok &mymkdir(), '&mkdir'; like <*>, qr/^phoo(.DIR)?\z/i, 'mkdir works with implicit $_'; diff --git a/t/op/exec.t b/t/op/exec.t index 09311c5..28f3043 100644 --- a/t/op/exec.t +++ b/t/op/exec.t @@ -124,7 +124,7 @@ $Perl -le "print 'ok'" END { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = qq($Perl -le "print 'ok'"); is( readpipe, "ok\n", 'readpipe default argument' ); } diff --git a/t/op/mkdir.t b/t/op/mkdir.t index 6bbd100..d5c04b3 100644 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -48,7 +48,7 @@ ok(!-d); $_ = 'lfrulb'; { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = 'blurfl'; ok(mkdir); ok(-d); diff --git a/t/op/mydef.t b/t/op/mydef.t index 1480ce3..b993f1b 100644 --- a/t/op/mydef.t +++ b/t/op/mydef.t @@ -7,7 +7,7 @@ BEGIN { } use strict; -no warnings 'misc', 'deprecated'; +no warnings 'misc', 'experimental::lexical_topic'; $_ = 'global'; is($_, 'global', '$_ initial value'); diff --git a/t/op/override.t b/t/op/override.t index 9202957..a3cb14a 100644 --- a/t/op/override.t +++ b/t/op/override.t @@ -66,7 +66,7 @@ is( $r, join($dirsep, "Foo", "Bar.pm") ); BEGIN { # Canât do âno warningsâ with CORE::GLOBAL::require overridden. :-) CORE::require warnings; - unimport warnings 'deprecated'; + unimport warnings 'experimental::lexical_topic'; } my $_ = 'bar.pm'; require; diff --git a/t/op/reverse.t b/t/op/reverse.t index d4d43f8..0796614 100644 --- a/t/op/reverse.t +++ b/t/op/reverse.t @@ -94,7 +94,7 @@ use Tie::Array; { # Lexical $_. - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; sub blurp { my $_ = shift; reverse } is(blurp("foo"), "oof", 'reversal of default variable in function'); diff --git a/t/op/state.t b/t/op/state.t index 91cc4b7..31eb2d2 100644 --- a/t/op/state.t +++ b/t/op/state.t @@ -211,7 +211,7 @@ my $first = $stones [0]; my $First = ucfirst $first; $_ = "bambam"; foreach my $flint (@stones) { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; state $_ = $flint; is $_, $first, 'state $_'; ok /$first/, '/.../ binds to $_'; diff --git a/t/op/switch.t b/t/op/switch.t index 439df50..b815491 100644 --- a/t/op/switch.t +++ b/t/op/switch.t @@ -55,7 +55,7 @@ given("inside") { check_outside1() } sub check_outside1 { is($_, "inside", "\$_ is not lexically scoped") } { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = "outside"; given("inside") { check_outside2() } sub check_outside2 { @@ -398,7 +398,7 @@ sub check_outside1 { is($_, "inside", "\$_ is not lexically scoped") } # Make sure it still works with a lexical $_: { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; my $test = "explicit comparison with lexical \$_"; my $twenty_five = 25; @@ -699,7 +699,7 @@ my $f = tie my $v, "FetchCounter"; { my $first = 1; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; for (1, "two") { when ("two") { @@ -718,7 +718,7 @@ my $f = tie my $v, "FetchCounter"; { my $first = 1; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; for $_ (1, "two") { when ("two") { @@ -737,7 +737,7 @@ my $f = tie my $v, "FetchCounter"; { my $first = 1; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; for my $_ (1, "two") { when ("two") { is($first, 0, "Lexical loop: second"); @@ -1371,7 +1371,7 @@ unreified_check(undef,""); { sub f1 { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_; given(3) { return sub { $_ } # close over lexical $_ @@ -1385,7 +1385,7 @@ unreified_check(undef,""); sub DESTROY { $d++ }; sub f2 { - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = 5; given(bless [7]) { ::is($_->[0], 7, "is [7]"); diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t index b63491e..fc13c6f 100644 --- a/t/re/pat_advanced.t +++ b/t/re/pat_advanced.t @@ -1645,7 +1645,7 @@ sub run_tests { { # Test for keys in %+ and %- my $message = 'Test keys in %+ and %-'; - no warnings 'uninitialized', 'deprecated'; + no warnings 'uninitialized', 'deprecated', 'experimental::lexical_topic'; my $_ = "abcdef"; /(?<foo>a)|(?<foo>b)/; is((join ",", sort keys %+), "foo", $message); @@ -1666,7 +1666,7 @@ sub run_tests { { # length() on captures, the numbered ones end up in Perl_magic_len - no warnings 'deprecated'; + no warnings 'deprecated', 'experimental::lexical_topic'; my $_ = "aoeu \xe6var ook"; /^ \w+ \s (?<eek>\S+)/x; diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t index 54c2d05..e6ee0dd 100644 --- a/t/re/pat_rt_report.t +++ b/t/re/pat_rt_report.t @@ -915,7 +915,7 @@ sub run_tests { { my $message = '$REGMARK in replacement; Bug 49190'; our $REGMARK; - no warnings 'deprecated'; + no warnings 'experimental::lexical_topic'; my $_ = "A"; ok(s/(*:B)A/$REGMARK/, $message); is($_, "B", $message); diff --git a/t/re/qr.t b/t/re/qr.t index ee68d63..811f5c5 100644 --- a/t/re/qr.t +++ b/t/re/qr.t @@ -33,7 +33,7 @@ is(ref $rx, "Regexp", "qr// blessed into 'Regexp' by default"); is $output, "5\n1: 5\n2: 5\n", '$a_match_var =~ /$qr/'; } -no warnings 'deprecated'; +no warnings 'experimental::lexical_topic'; for my $_($'){ my $output = ''; my $rx = qr/o/; -- Perl5 Master Repository
