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

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

2 files changed, 9 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index f9d861d84..2013a251b 100644
--- 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 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';