From e4179a00e0f245edce5eec0872c20df48337b0ff Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Wed, 5 Jul 2006 05:27:42 +0000 Subject: [PATCH] =?utf8?q?Bug=20343566:=20Runtests=20test=20004template.t?= =?utf8?q?=20fails=20on=20some=20systems=20with=20a=20complaint=20about=20?= =?utf8?q?RELATIVE=20-=20Patch=20by=20Fr=C3=A9d=C3=A9ric=20Buclin=20=20r=3Djoel=20a=3Dmyk?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- t/Support/Templates.pm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/t/Support/Templates.pm b/t/Support/Templates.pm index 6848cf1784..40e16f1053 100644 --- a/t/Support/Templates.pm +++ b/t/Support/Templates.pm @@ -98,6 +98,10 @@ sub find_templates { my $local_dir = File::Spec->abs2rel($File::Find::dir, $File::Find::topdir); + # File::Spec 3.13 and newer return "." instead of "" if both + # arguments of abs2rel() are identical. + $local_dir = "" if ($local_dir eq "."); + if ($local_dir) { $filename = File::Spec->catfile($local_dir, $_); } else { -- 2.47.2