diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-02-24 10:06:35 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-03-06 09:13:49 +0000 |
commit | 519ecd2cabd84d9e11d438f376f05f932f9bc5cc (patch) | |
tree | 4959880c5373beefa6be573ecf8e4e967176da34 /t/io | |
parent | 0e25fa04f6006646c337dfe00daeec3d9906506f (diff) | |
download | perl-519ecd2cabd84d9e11d438f376f05f932f9bc5cc.tar.gz |
In t/ avoid using File::Spec for paths only used by Perl.
All platforms Perl builds on can already support Unix-style paths (given that
make_ext.pl is using them). This makes 7 more tests pass under minitest, which
doesn't build File::Spec, because it's part of an XS module.
Diffstat (limited to 't/io')
-rw-r--r-- | t/io/fs.t | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -7,7 +7,6 @@ BEGIN { } use Config; -use File::Spec::Functions; my $Is_VMSish = ($^O eq 'VMS'); @@ -66,7 +65,7 @@ else { `rm -f $tmpdir 2>/dev/null; mkdir $tmpdir 2>/dev/null`; } -chdir catdir(curdir(), $tmpdir); +chdir $tmpdir; `/bin/rm -rf a b c x` if -x '/bin/rm'; |