diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-07-02 15:18:41 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-07 17:45:52 +0000 |
| commit | 1f47e8e2e6e01cf4845f0f3f0f0c7524761ffa80 (patch) | |
| tree | d302430354d07e16ddf40f2a034ab55b14889d8b /t/op/mkdir.t | |
| parent | cae6c631be0cfed1f388d3116e456beb58714d6e (diff) | |
| download | perl-1f47e8e2e6e01cf4845f0f3f0f0c7524761ffa80.tar.gz | |
applied new parts of suggested patch
Message-id: <01JD3M8W1VXS000S5G@mail.newman.upenn.edu>
Subject: [PATCH 5.005_57] Consolidated VMS patch
p4raw-id: //depot/perl@3650
Diffstat (limited to 't/op/mkdir.t')
| -rwxr-xr-x | t/op/mkdir.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/op/mkdir.t b/t/op/mkdir.t index fc91b6b6a2..4bd1b21c80 100755 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -4,7 +4,14 @@ print "1..7\n"; -$^O eq 'MSWin32' ? `del /s /q blurfl 2>&1` : `rm -rf blurfl`; +if ($^O eq 'VMS') { # May as well test the library too + unshift @INC, '../lib'; + require File::Path; + File::Path::rmtree('blurfl'); +} +else { + $^O eq 'MSWin32' ? `del /s /q blurfl 2>&1` : `rm -rf blurfl`; +} # tests 3 and 7 rather naughtily expect English error messages $ENV{'LC_ALL'} = 'C'; |