Bug 419388: 004template.t should fall back to "en" - Patch by Vitaly Fedrushkov ...

diff --git a/t/004template.t b/t/004template.t
index 034031c0b7f6c9709ebc8417f5fb1a0161dbbe6b..0cd7fd3faa5668862f92a515364a72c506a18774 100644 (file)
--- a/t/004template.t
+++ b/t/004template.t
@@ -69,12 +69,12 @@ sub existOnce {
 foreach my $lang (@languages) {
     foreach my $file (@referenced_files) {
         my @path = map(File::Spec->catfile($_, $file),
-                       split(':', $include_path{$lang}));
+                       split(':', $include_path{$lang} . ":" . $include_path{"en"}));
         if (my $path = existOnce(@path)) {
             ok(1, "$path exists");
         } else {
             ok(0, "$file cannot be located --ERROR");
-            print $fh "Looked in:\n  " . join("\n  ", @path);
+            print $fh "Looked in:\n  " . join("\n  ", @path) . "\n";
         }
     }
 }