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 4403580155fc6b7029cf53c9405fe8a12a6e7084..330cedbc98ce5f8da64850caaf438fe2ec6ddd4f 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 {