summaryrefslogtreecommitdiff
path: root/ext
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2015-08-19 13:10:16 -0700
committerRicardo Signes <rjbs@cpan.org>2015-09-29 10:49:19 -0400
commit7fba29668402ec06ad00dfafda69913bcbb2c1df (patch)
tree70b3e0d3f06e47f23571ce6f95c09991ee83b39b /ext
parent96f902ff649ca0f75966f5282611d16ecf5f907e (diff)
downloadperl-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.t22
-rw-r--r--ext/XS-APItest/t/underscore_length.t8
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;