diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-10-25 08:51:55 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-10-25 08:51:55 +0100 |
| commit | c2970a99031b996544125e1d90c2dcbd63baa2d4 (patch) | |
| tree | c568e9bf2ddc5888266b02ca86f21548a7018855 /t | |
| parent | 574fde551fdfac289d149541a993a1583cb6c618 (diff) | |
| download | perl-c2970a99031b996544125e1d90c2dcbd63baa2d4.tar.gz | |
Stop sysio.t changing into t/op, and hence creating a temporary file there.
Creating a file there causes a race condition with (at least) glob.t, which
lists the contents of t/op by various means, and compares the results for
consistency.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/sysio.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op/sysio.t b/t/op/sysio.t index f2c269ebaf..d0f71ae492 100644 --- a/t/op/sysio.t +++ b/t/op/sysio.t @@ -1,14 +1,14 @@ #!./perl BEGIN { - chdir('op') || chdir('t/op') || die "sysio.t: cannot look for myself: $!"; - @INC = '../../lib'; - require '../test.pl'; + chdir 't' if -d 't'; + @INC = '../lib'; + require './test.pl'; } plan tests => 48; -open(I, 'sysio.t') || die "sysio.t: cannot find myself: $!"; +open(I, 'op/sysio.t') || die "sysio.t: cannot find myself: $!"; $reopen = ($^O eq 'VMS' || $^O eq 'os2' || |