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 /cpan/experimental | |
| 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 'cpan/experimental')
| -rw-r--r-- | cpan/experimental/t/basic.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/cpan/experimental/t/basic.t b/cpan/experimental/t/basic.t index ee03a02608..be27df6ace 100644 --- a/cpan/experimental/t/basic.t +++ b/cpan/experimental/t/basic.t @@ -5,12 +5,14 @@ use Test::More 0.89; local $SIG{__WARN__} = sub { fail("Got unexpected warning"); diag($_[0]) }; if ($] >= 5.010000) { - is (eval <<'END', 1, 'lexical topic compiles') or diag $@; - use experimental 'lexical_topic'; - my $_ = 1; - is($_, 1, '$_ is 1'); - 1; + if ($] < 5.023) { + is (eval <<'END', 1, 'lexical topic compiles') or diag $@; + use experimental 'lexical_topic'; + my $_ = 1; + is($_, 1, '$_ is 1'); + 1; END + } } else { fail("No experimental features available on perl $]"); |