This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate $::PatchId from t/re/*.t.
[perl5.git] / t / re / ReTest.pl
index 5baa953..766065c 100644 (file)
@@ -15,7 +15,6 @@ use vars qw(
     $DiePattern
     $WarnPattern
     $BugId
-    $PatchId
     $running_as_thread
     $IS_ASCII
     $IS_EBCDIC
@@ -61,7 +60,7 @@ sub pretty {
 }
 
 sub safe_globals {
-    defined($_) and s/#/\\#/g for $BugId, $PatchId, $TODO;
+    defined($_) and s/#/\\#/g for $BugId, $TODO;
 }
 
 sub _ok {
@@ -70,7 +69,6 @@ sub _ok {
     safe_globals();
     $mess    = pretty ($mess // $Message);
     $mess   .= "; Bug $BugId"     if defined $BugId;
-    $mess   .= "; Patch $PatchId" if defined $PatchId;
     $mess   .= " # TODO $TODO"     if defined $TODO;
 
     my $line_nr = (caller(1)) [2];