[perl #3330] avoid an uncaught warning from op/inc.t

and add a warnings.t test case to check for that warning

diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv
index 7116811..87bc368 100644 (file)
--- a/t/lib/warnings/sv
+++ b/t/lib/warnings/sv
@@ -403,9 +403,11 @@ my $x = "a_c";
 ++$x;
 use warnings "numeric";
 $x = "a_c"; ++$x;
+$x = ${ qr/abc/ }; ++$x;
 $x = 0; ++$x; # none of these should warn
 $x = "ABC"; ++$x;
 $x = "ABC123"; ++$x;
 $x = " +10"; ++$x;
 EXPECT
 Argument "a_c" treated as 0 in increment (++) at - line 5.
+Argument "(?^:abc)" treated as 0 in increment (++) at - line 6.

diff --git a/t/op/inc.t b/t/op/inc.t
index 8db0660..5135ab7 100644 (file)
--- a/t/op/inc.t
+++ b/t/op/inc.t
@@ -274,9 +274,12 @@ isnt(scalar eval { my $pvbm = PVBM; --$pvbm }, undef, "predecrement defined");
 $_ = ${qr //};
 $_--;
 is($_, -1, 'regexp--');
-$_ = ${qr //};
-$_++;
-is($_, 1, 'regexp++');
+{
+    no warnings 'numeric';
+    $_ = ${qr //};
+    $_++;
+    is($_, 1, 'regexp++');
+}
 
 $_ = v97;
 $_++;