Make sure we always call fileparse() in scalar context.
authorTom Hughes <tom@compton.nu>
Tue, 21 Jul 2009 12:20:02 +0000 (12:20 +0000)
committerTom Hughes <tom@compton.nu>
Tue, 21 Jul 2009 12:20:02 +0000 (12:20 +0000)
script/locale/diff

index 228fe356b51cbd952377e0948f45efc0a6654524..4b5591978da32e39886af64559f7ed7f640ade86 100755 (executable)
@@ -115,7 +115,7 @@ elsif ($untranslated_values or $untranslated_values_all)
 
     # Prune according to blacklist
     if ($untranslated_values) {
-        @untranslated = prune_untranslated_with_blacklist(fileparse($to, qr/\.[^.]*/), @untranslated);
+        @untranslated = prune_untranslated_with_blacklist(scalar(fileparse($to, qr/\.[^.]*/)), @untranslated);
     }
 
     say for @untranslated;