Change 34195 by [EMAIL PROTECTED] on 2008/08/10 20:27:38
Subject: Re: Change 34175: Avoid a potential testing race condition in
Shell.pm's test.
From: Bram <[EMAIL PROTECTED]>
Message-ID: <[EMAIL PROTECTED]>
Date: Sun, 10 Aug 2008 20:29:07 +0200
Affected files ...
... //depot/perl/lib/Shell.t#10 edit
Differences ...
==== //depot/perl/lib/Shell.t#10 (text) ====
Index: perl/lib/Shell.t
--- perl/lib/Shell.t#9~34175~ 2008-08-06 14:36:45.000000000 -0700
+++ perl/lib/Shell.t 2008-08-10 13:27:38.000000000 -0700
@@ -44,7 +44,10 @@
# Trying to do two repeated C<ls>s in t in core and expecting the same output
# is a race condition when tests are running in parallel, and using it as a
# temporary directory. So go somewhere quieter.
-chdir 'uni' if $ENV{PERL_CORE} && -d 'uni';
+if ($ENV{PERL_CORE} && -d 'uni') {
+ chdir 'uni';
+ $chdir++;
+}
# someone will have to fill in the blanks for other platforms
@@ -75,3 +78,7 @@
}
open(STDERR, ">&SAVERR") ;
+
+if ($chdir) {
+ chdir "..";
+}
End of Patch.
