diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-02-28 10:57:30 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2013-02-28 10:57:30 +0100 |
| commit | e5b2cbd045b1a66adca6bba76eb0711b3d146911 (patch) | |
| tree | 71583ffcfd31f82193aa04da9e06fd6a14d78ba5 /cpan/Devel-PPPort | |
| parent | b16d1a7702bec709aa8fb4fd0df358d31875bbc6 (diff) | |
| download | perl-e5b2cbd045b1a66adca6bba76eb0711b3d146911.tar.gz | |
Suppress experimental warning for my $_ in Devel::PPPort's tests.
This warning was missed by commit dcd695b6ec3bf411. The patch is effectively
an update of commit 0d7b125b0c3d6ada. It requires hoop jumping with if,
because the "experimental::lexical_topic" warnings category is unrecognised
and hence a fatal error on earlier perls.
Diffstat (limited to 'cpan/Devel-PPPort')
| -rw-r--r-- | cpan/Devel-PPPort/parts/inc/misc | 1 | ||||
| -rw-r--r-- | cpan/Devel-PPPort/t/misc.t | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/cpan/Devel-PPPort/parts/inc/misc b/cpan/Devel-PPPort/parts/inc/misc index 59c326a56a..a9093d28b5 100644 --- a/cpan/Devel-PPPort/parts/inc/misc +++ b/cpan/Devel-PPPort/parts/inc/misc @@ -496,6 +496,7 @@ ok(&Devel::PPPort::UNDERBAR(), "Fred"); if ($] >= 5.009002) { eval q{ + no if $^V > v5.17.9, warnings => "experimental::lexical_topic"; my $_ = "Tony"; ok(&Devel::PPPort::DEFSV(), "Fred"); ok(&Devel::PPPort::UNDERBAR(), "Tony"); diff --git a/cpan/Devel-PPPort/t/misc.t b/cpan/Devel-PPPort/t/misc.t index f74a9df54f..4667560d8d 100644 --- a/cpan/Devel-PPPort/t/misc.t +++ b/cpan/Devel-PPPort/t/misc.t @@ -59,7 +59,7 @@ ok(&Devel::PPPort::UNDERBAR(), "Fred"); if ($] >= 5.009002) { eval q{ - no warnings "deprecated"; + no if $^V > v5.17.9, warnings => "experimental::lexical_topic"; my $_ = "Tony"; ok(&Devel::PPPort::DEFSV(), "Fred"); ok(&Devel::PPPort::UNDERBAR(), "Tony"); |