diff options
author | Father Chrysostomos <sprout@cpan.org> | 2015-08-19 13:10:16 -0700 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2015-09-29 10:49:19 -0400 |
commit | 7fba29668402ec06ad00dfafda69913bcbb2c1df (patch) | |
tree | 70b3e0d3f06e47f23571ce6f95c09991ee83b39b /ext | |
parent | 96f902ff649ca0f75966f5282611d16ecf5f907e (diff) | |
download | perl-7fba29668402ec06ad00dfafda69913bcbb2c1df.tar.gz |
Disable lexical $_
This just disables the syntax and modifes the tests. The underlying
infrastructure has not been removed yet.
I had to change a couple of tests in cpan/.
Diffstat (limited to 'ext')
-rw-r--r-- | ext/XS-APItest/t/newDEFSVOP.t | 22 | ||||
-rw-r--r-- | ext/XS-APItest/t/underscore_length.t | 8 |
2 files changed, 2 insertions, 28 deletions
diff --git a/ext/XS-APItest/t/newDEFSVOP.t b/ext/XS-APItest/t/newDEFSVOP.t index 1ba6ee6364..42d45b2633 100644 --- a/ext/XS-APItest/t/newDEFSVOP.t +++ b/ext/XS-APItest/t/newDEFSVOP.t @@ -3,7 +3,7 @@ use strict; use warnings; -use Test::More tests => 16; +use Test::More tests => 7; use XS::APItest qw(DEFSV); @@ -18,23 +18,3 @@ is $_, "foo"; $_ = "bar"; is DEFSV, "bar"; is $_, "bar"; - -{ - no warnings 'experimental::lexical_topic'; - my $_; - - is $_, undef; - is DEFSV, undef; - is \DEFSV, \$_; - - DEFSV = "lex-foo"; - is DEFSV, "lex-foo"; - is $_, "lex-foo"; - - $_ = "lex-bar"; - is DEFSV, "lex-bar"; - is $_, "lex-bar"; -} - -is DEFSV, "bar"; -is $_, "bar"; diff --git a/ext/XS-APItest/t/underscore_length.t b/ext/XS-APItest/t/underscore_length.t index 545b2a3240..467236f089 100644 --- a/ext/XS-APItest/t/underscore_length.t +++ b/ext/XS-APItest/t/underscore_length.t @@ -1,7 +1,7 @@ use warnings; no warnings 'experimental::lexical_topic'; use strict; -use Test::More tests => 4; +use Test::More tests => 2; use XS::APItest qw(underscore_length); @@ -11,10 +11,4 @@ is underscore_length(), 3; $_ = "snowman \x{2603}"; is underscore_length(), 9; -my $_ = "xyzzy"; -is underscore_length(), 5; - -$_ = "pile of poo \x{1f4a9}"; -is underscore_length(), 13; - 1; |