Third Degree: name the op/foo.t as op_foo.

p4raw-id: //depot/perl@16602

1 files changed, 1 insertions, 1 deletions

diff --git a/t/TEST b/t/TEST
index 9ac287a7f4..3d8aa719e6 100755
--- a/t/TEST
+++ b/t/TEST
@@ -322,7 +322,7 @@ EOT
 	if ($ENV{PERL_3LOG}) {
 	    my $tpp = $test;
 	    $tpp =~ s:^../::;
-	    $tpp =~ s:/:_:g;
+	    if ($tpp =~ m:/:) { $tpp =~ s:/:_:g } else { $tpp = "op_$tpp" }
 	    $tpp =~ s:\.t$::;
 	    rename("perl.3log", "perl.3log.$tpp") ||
 		die "rename: perl3.log to perl.3log.$tpp: $!\n";