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 4e69145..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];
@@ -104,7 +102,7 @@ sub skip {
     safe_globals();
     $why =~ s/\n.*//s;
     $why .= "; Bug $BugId" if defined $BugId;
-    # seems like the new harness code doesnt like todo and skip to be mixed.
+    # seems like the new harness code doesn't like todo and skip to be mixed.
     # which seems like a bug in the harness to me. -- dmq
     #$why .= " # TODO $TODO" if defined $TODO;