Eliminate $::PatchId from t/re/*.t.

[perl5.git] / t / re / pat_advanced.t

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index b8ac367..58966e7 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -488,14 +488,14 @@ sub run_tests {
 
     {
         use charnames ':full';
-        local $PatchId = "13843";
         local $Message = "GREEK CAPITAL LETTER SIGMA vs " .
                          "COMBINING GREEK PERISPOMENI";
 
         my $SIGMA = "\N{GREEK CAPITAL LETTER SIGMA}";
         my $char  = "\N{COMBINING GREEK PERISPOMENI}";
 
-        may_not_warn sub {ok "_:$char:_" !~ m/_:$SIGMA:_/i};
+        may_not_warn sub {ok "_:$char:_" !~ m/_:$SIGMA:_/i},
+           'Did not warn [change a5961de5f4215b5c]';
     }