Include test name in the "unsafe working directory name" diagnostic.

* tests/CuTmpdir.pm (import): If $ME is '-', use $prefix.

diff --git a/ChangeLog b/ChangeLog
index f9d861d848147da224312c6308581586ef9124ec..2013a251b4ccc69a4d84068dd4f2411869b9fbc9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2007-11-30  Jim Meyering  <meyering@redhat.com>
+
+       Include test name in the "unsafe working directory name" diagnostic.
+       * tests/CuTmpdir.pm (import): If $ME is '-', use $prefix.
+
 2007-11-30  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
        Add quotes to protect against white space in build dir name.

diff --git a/tests/CuTmpdir.pm b/tests/CuTmpdir.pm
index 38bc7245ed533ccf6f0839a93f4fe66984cda13f..60eec90c0706c51a369cab08621e5ea54cbf36aa 100644 (file)
--- 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';