From 074471309b0d9a452e9297d2940ea63887847f5a Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Wed, 5 Jul 2006 05:25:47 +0000 Subject: =?UTF-8?q?Bug=20343566:=20Runtests=20test=20004template.t=20fails?= =?UTF-8?q?=20on=20some=20systems=20with=20a=20complaint=20about=20RELATIV?= =?UTF-8?q?E=20-=20Patch=20by=20Fr=C3=A9d=C3=A9ric=20Buclin=20=20r=3Djoel=20a=3Dmyk?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- t/Support/Templates.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 't') diff --git a/t/Support/Templates.pm b/t/Support/Templates.pm index 6848cf178..40e16f105 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 { -- cgit v1.2.1