Make sure we always call fileparse() in scalar context.

diff --git a/script/locale/diff b/script/locale/diff
index 228fe356b51cbd952377e0948f45efc0a6654524..4b5591978da32e39886af64559f7ed7f640ade86 100755 (executable)
--- a/script/locale/diff
+++ b/script/locale/diff
@@ -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;