From 63306b94014e0583ae5d90e08bb1efacbb000e46 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 15 May 2002 00:34:46 +0000
Subject: Third Degree: name the op/foo.t as op_foo.

p4raw-id: //depot/perl@16602
---
 t/TEST | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't')

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";
-- 
cgit v1.2.1