From 94a2bd5bf7d92c9d87cf2d8c7a7612144cce4277 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Fri, 30 Nov 2007 13:40:25 +0100
Subject: [PATCH] Include test name in the "unsafe working directory name"
 diagnostic.

* tests/CuTmpdir.pm (import): If $ME is '-', use $prefix.
---
 ChangeLog         | 5 +++++
 tests/CuTmpdir.pm | 4 ++++
 2 files changed, 9 insertions(+)

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';
-- 
2.47.2