diff options
author | Jim Meyering <meyering@redhat.com> | 2007-11-30 13:40:25 +0100 |
---|---|---|
committer | Jim Meyering <meyering@redhat.com> | 2007-11-30 13:40:25 +0100 |
commit | 94a2bd5bf7d92c9d87cf2d8c7a7612144cce4277 (patch) | |
tree | dc94e4bcde26895ad254e26f9a12947d49366789 /tests | |
parent | 0db207c66c8b992f4c123c6a25f3cb1809ec4149 (diff) | |
download | coreutils-94a2bd5bf7d92c9d87cf2d8c7a7612144cce4277.tar.xz |
Include test name in the "unsafe working directory name" diagnostic.
* tests/CuTmpdir.pm (import): If $ME is '-', use $prefix.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/CuTmpdir.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/CuTmpdir.pm b/tests/CuTmpdir.pm index 38bc7245e..60eec90c0 100644 --- a/tests/CuTmpdir.pm +++ b/tests/CuTmpdir.pm @@ -34,6 +34,10 @@ sub skip_test sub import { my $prefix = $_[1]; + + $ME eq '-' && defined $prefix + and $ME = $prefix; + if ($prefix !~ /^\//) { eval 'use Cwd'; |