From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 15 May 2002 00:34:46 +0000 (+0000)
Subject: Third Degree: name the op/foo.t as op_foo.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=63306b94014e0583ae5d90e08bb1efacbb000e46;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@16602
---

diff --git a/t/TEST b/t/TEST
index 9ac287a..3d8aa71 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";