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: Include test name in the "unsafe working directory name" diagnostic.

* tests/CuTmpdir.pm (import): If $ME is '-', use $prefix.
---
 tests/CuTmpdir.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tests')

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';
-- 
cgit v1.2.3-54-g00ecf