Bug 343566: Runtests test 004template.t fails on some systems with a complaint about...

diff --git a/t/Support/Templates.pm b/t/Support/Templates.pm
index 6848cf1784cabc69d17fbef0d24cf2aaa87dbdfb..40e16f1053e8e7e3095fba1bbdcbff17b4f72a20 100644 (file)
--- 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 {