This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In ReTest.pl's must_warn(), ignore $::Message.
authorNicholas Clark <nick@ccl4.org>
Thu, 3 Mar 2011 14:38:54 +0000 (14:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 3 Mar 2011 14:38:54 +0000 (14:38 +0000)
Every caller was setting $name, so $::Message was never used.

t/re/ReTest.pl

index ebdbdd3..4b480bb 100644 (file)
@@ -172,7 +172,7 @@ sub must_warn {
     ref $code ? &$code : eval $code;
     my $r = $w && $w =~ /$pattern/;
     $w //= "UNDEF";
-    _ok $r, $name // $Message // "Got warning /$pattern/",
+    _ok $r, $name // "Got warning /$pattern/",
             "# expected: /$pattern/\n" .
             "#   result: $w";
 }