This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Eliminate the global override $BugId from t/re/ReTest.pl
authorNicholas Clark <nick@ccl4.org>
Fri, 4 Mar 2011 18:25:15 +0000 (18:25 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 5 Mar 2011 20:26:08 +0000 (20:26 +0000)
t/re/ReTest.pl

index c653875..00e4605 100644 (file)
@@ -10,7 +10,6 @@ use Carp;
 use vars qw(
     $EXPECTED_TESTS 
     $TODO
-    $BugId
     $running_as_thread
     $IS_ASCII
     $IS_EBCDIC
@@ -55,7 +54,7 @@ sub pretty {
 }
 
 sub safe_globals {
-    defined($_) and s/#/\\#/g for $BugId, $TODO;
+    defined($_) and s/#/\\#/g for $TODO;
 }
 
 sub _ok {
@@ -63,7 +62,6 @@ sub _ok {
     plan();
     safe_globals();
     $mess    = defined $mess ? pretty ($mess) : 'Noname test';
-    $mess   .= "; Bug $BugId"     if defined $BugId;
     $mess   .= " # TODO $TODO"     if defined $TODO;
 
     my $line_nr = (caller(1)) [2];
@@ -96,7 +94,6 @@ sub skip {
     my $why = shift;
     safe_globals();
     $why =~ s/\n.*//s;
-    $why .= "; Bug $BugId" if defined $BugId;
     my $ok;
     if (defined $TODO) {
        $why = "TODO & SKIP $why $TODO";