diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-10-03 18:56:02 +0100 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2015-10-03 18:56:02 +0100 |
| commit | 61030386ff09a19cf23a4631e3fd7ad43f2e7409 (patch) | |
| tree | 55e50909690491dbfe861100b364af2ae4e7e9d0 /cpan/experimental/t | |
| parent | 0358bab3cde3c2aebf6fc00217e86618938f4b47 (diff) | |
| download | perl-61030386ff09a19cf23a4631e3fd7ad43f2e7409.tar.gz | |
Update experimental to CPAN version 0.015
[DELTA]
0.015 2015-10-03 14:21:18+02:00 Europe/Amsterdam
Make lexical_topic a deprecated feature
Diffstat (limited to 'cpan/experimental/t')
| -rw-r--r-- | cpan/experimental/t/basic.t | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/cpan/experimental/t/basic.t b/cpan/experimental/t/basic.t index be27df6ace..a270fdfd91 100644 --- a/cpan/experimental/t/basic.t +++ b/cpan/experimental/t/basic.t @@ -5,14 +5,12 @@ use Test::More 0.89; local $SIG{__WARN__} = sub { fail("Got unexpected warning"); diag($_[0]) }; if ($] >= 5.010000) { - if ($] < 5.023) { - is (eval <<'END', 1, 'lexical topic compiles') or diag $@; - use experimental 'lexical_topic'; - my $_ = 1; - is($_, 1, '$_ is 1'); - 1; + is (eval <<'END', 1, 'state compiles') or diag $@; + use experimental 'state'; + state $foo = 1; + is($foo, 1, '$foo is 1'); + 1; END - } } else { fail("No experimental features available on perl $]"); |