From ac069c3f4b4b62d5bff915ade95c0c9e9a4df412 Mon Sep 17 00:00:00 2001 From: Kornel Benko Date: Thu, 26 Sep 2013 11:34:05 +0200 Subject: [PATCH] Corrected displayed file-name for fuzzy and untranslated messages in diff_po.pl --- po/diff_po.pl | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/po/diff_po.pl b/po/diff_po.pl index cd4d3ef887..65462d85b5 100755 --- a/po/diff_po.pl +++ b/po/diff_po.pl @@ -235,7 +235,9 @@ sub diff_po($$) if ($param eq "-L") { my $name = shift(@args); push(@names, $name); - $switchargs = 1; + } + else { + # ignore other options } } if (! defined($names[0])) { @@ -249,11 +251,6 @@ sub diff_po($$) die("names = \"", join('" "', @names) . "\"... args = \"" . join('" "', @args) . "\" Expected exactly 2 parameters"); } - if ($switchargs) { - my $tmp = $args[0]; - $args[0] = $args[1]; - $args[1] = $tmp; - } &check_po_file_readable($names[0], $args[0]); &check_po_file_readable($names[1], $args[1]); @@ -390,7 +387,7 @@ sub printExtraMessages($$$) my @sortedExtraKeys = sort { $a <=> $b;} keys %{$rExtra}; if (@sortedExtraKeys > 0) { - print "Still " . 0 + @sortedExtraKeys . " $type messages found in $rNames->[0]\n"; + print "Still " . 0 + @sortedExtraKeys . " $type messages found in $rNames->[1]\n"; for my $l (@sortedExtraKeys) { print "> line $l: \"" . $rExtra->{$l} . "\"\n"; } -- 2.39.5