From a13fba344ba4e4964ffc44249a610a56dd386eff Mon Sep 17 00:00:00 2001 From: Bram Date: Sun, 10 Aug 2008 22:29:07 +0200 Subject: [PATCH] Re: Change 34175: Avoid a potential testing race condition in Shell.pm's test. Message-ID: <20080810202907.0pfnzshsoco8owg4@horde.wizbit.be> Date: Sun, 10 Aug 2008 20:29:07 +0200 p4raw-id: //depot/perl@34195 --- lib/Shell.t | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lib/Shell.t b/lib/Shell.t index 23c1e0e..13bba22 100644 --- a/lib/Shell.t +++ b/lib/Shell.t @@ -44,7 +44,10 @@ $Shell::capture_stderr = 0; # Trying to do two repeated Cs 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 @@ if ($Is_VMS) { } open(STDERR, ">&SAVERR") ; + +if ($chdir) { + chdir ".."; +} -- 2.7.4