diff options
Diffstat (limited to 't/op/mkdir.t')
| -rw-r--r-- | t/op/mkdir.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/op/mkdir.t b/t/op/mkdir.t index 0ad5dac4dc..ebbbd2e648 100644 --- a/t/op/mkdir.t +++ b/t/op/mkdir.t @@ -8,8 +8,15 @@ BEGIN { plan tests => 22; -use File::Path; -rmtree('blurfl'); +unless (eval { + require File::Path; + File::Path::rmtree('blurfl'); + 1 +}) { + diag("$0 may fail if its temporary directory remains from a previous run"); + diag("Attempted to load File::Path to delete directory t/blurfl - error was\n$@"); + diag("\nIf you have problems, please manually delete t/blurfl"); +} # tests 3 and 7 rather naughtily expect English error messages $ENV{'LC_ALL'} = 'C'; |