In ReTest.pl's may_not_warn(), eliminate the use of $::Message.

For the one caller using the global variable, instead pass the message in as
a function parameter.

diff --git a/t/re/ReTest.pl b/t/re/ReTest.pl
index 0c08e25..ebdbdd3 100644 (file)
--- a/t/re/ReTest.pl
+++ b/t/re/ReTest.pl
@@ -183,9 +183,7 @@ sub may_not_warn {
     local $SIG {__WARN__} = sub {$w .= join "" => @_};
     use warnings 'all';
     ref $code ? &$code : eval $code;
-    _ok !$w, $name // ($Message ? "$Message (did not warn)"
-                                : "Did not warn"),
-             "Got warning '$w'";
+    _ok !$w, $name, "Got warning '$w'";
 }
 
 1;

diff --git a/t/re/pat.t b/t/re/pat.t
index bdfff05..e0efb3e 100644 (file)
--- a/t/re/pat.t
+++ b/t/re/pat.t
@@ -984,8 +984,8 @@ sub run_tests {
 
 
     {
-        local $Message = '"1" is not \s';
-        may_not_warn sub {ok ("1\n" x 102) !~ /^\s*\n/m};
+        my $message = '"1" is not \s';
+        may_not_warn sub {ok ("1\n" x 102 !~ /^\s*\n/m, $message)}, "$message (did not warn)";
     }