From: Jim Meyering <meyering@redhat.com>
Date: Fri, 30 Nov 2007 12:40:25 +0000 (+0100)
Subject: Include test name in the "unsafe working directory name" diagnostic.
X-Git-Tag: v6.9.90~13
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=94a2bd5bf7d92c9d87cf2d8c7a7612144cce4277;p=thirdparty%2Fcoreutils.git

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 f9d861d848..2013a251b4 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 38bc7245ed..60eec90c07 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';