diff po/stats.pl @ 21100:29d8c86c14cd

propagate from branch 'im.pidgin.pidgin' (head cd2be742f6c45c200000003fc5a6341297bbe857) to branch 'im.pidgin.cpw.khc.msnp14.soap' (head 1d7d51174ae87c7f03bb1290a8e447bf2a1704a5)

--- a/po/stats.pl	Wed Oct 03 05:05:35 2007 +0000
+++ b/po/stats.pl	Thu Oct 04 06:13:01 2007 +0000
@@ -26,12 +26,13 @@
 use Locale::Language;
 
 $lang{'ca@valencia'} = "Catalan (Valencian)";
+$lang{'be@latin'} = "Belarusian (Latin)";
 $lang{en_AU} = "English (Australian)";
 $lang{en_CA} = "English (Canadian)";
 $lang{en_GB} = "English (British)";
 $lang{my_MM} = "Burmese (Myanmar)";
 $lang{pt_BR} = "Portuguese (Brazilian)";
-$lang{'sr@Latn'} = "Serbian (Latin)";
+$lang{'sr@latin'} = "Serbian (Latin)";
 $lang{zh_CN} = "Chinese (Simplified)";
 $lang{zh_HK} = "Chinese (Hong Kong)";
 $lang{zh_TW} = "Chinese (Traditional)";
@@ -62,13 +63,16 @@
 	$trans = $fuzz = $untrans = 0;
 	$po = $pos[$index];
 	print STDERR "$po..." if($ARGV[0] eq '-v');
-	system("msgmerge $po.po $PACKAGE.pot -o $po.new 2>/dev/null");
-	$_ = `msgfmt --statistics $po.new -o /dev/null 2>&1`;
+	system("msgmerge -U $po.po $PACKAGE.pot 2>/dev/null");
+	if (($? & 127) == 2) {
+		printf STDERR "Caught keyboard interrupt--exiting\n";
+		exit
+	}
+	$_ = `msgfmt --statistics $po -o /dev/null 2>&1`;
 	chomp;
 	if(/(\d+) translated message/) { $trans = $1; }
 	if(/(\d+) fuzzy translation/) { $fuzz = $1; }
 	if(/(\d+) untranslated message/) { $untrans = $1; }
-	unlink("$po.new");
 
 	$name = "";
 	$name = $lang{$po};