Suppress experimental warning for my $_ in Devel::PPPort's tests.
authorNicholas Clark <nick@ccl4.org>
Thu, 28 Feb 2013 09:57:30 +0000 (10:57 +0100)
committerNicholas Clark <nick@ccl4.org>
Thu, 28 Feb 2013 09:57:30 +0000 (10:57 +0100)
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.

cpan/Devel-PPPort/parts/inc/misc
cpan/Devel-PPPort/t/misc.t

index 59c326a..a9093d2 100644 (file)
@@ -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");
index f74a9df..4667560 100644 (file)
@@ -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");