diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-08-06 21:36:45 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-08-06 21:36:45 +0000 |
| commit | 75ff0aabd99f2dc0b759e6d27a79bfedc15168a7 (patch) | |
| tree | 9fe420a1f5a9e399495f6163e6e845ffb00e42e2 | |
| parent | 9ae5a6c323cea172e440bd71782fdef16f8f20b1 (diff) | |
| download | perl-75ff0aabd99f2dc0b759e6d27a79bfedc15168a7.tar.gz | |
Avoid a potential testing race condition in Shell.pm's test.
p4raw-id: //depot/perl@34175
| -rw-r--r-- | lib/Shell.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Shell.t b/lib/Shell.t index c76628c4ce..23c1e0e6bf 100644 --- a/lib/Shell.t +++ b/lib/Shell.t @@ -41,6 +41,11 @@ ok(($^O eq 'os2' xor !(-s $tmpfile)), '$Shell::capture_stderr'); $Shell::capture_stderr = 0; +# 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'; + # someone will have to fill in the blanks for other platforms if ($Is_VMS) { |