[Po4a-commits] "po4a changelog,1.179,1.180 po4a,1.69,1.70"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a
In directory alioth:/tmp/cvs-serv2240

Modified Files:
	changelog po4a 
Log Message:
Fix warnings. the second argument to the sort subroutine can also be the
empty (for global options).


Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -d -r1.69 -r1.70
--- po4a	24 Mar 2007 22:19:12 -0000	1.69
+++ po4a	24 Mar 2007 22:23:17 -0000	1.70
@@ -756,7 +756,7 @@
 }
 my $potfile=Locale::Po4a::Po->new(\%Po_opts);
 if ($update_pot_file) {
-    foreach my $master (sort { return -1 if ($a eq "");
+    foreach my $master (sort { return -1 if ($a eq "" or $b eq "");
                                $document{$a}{'pos'} <=> $document{$b}{'pos'}
                              } keys %document) {
         next if ($master eq '');
@@ -973,7 +973,7 @@
 	my $po = Locale::Po4a::Po->new();
 	$po->read($po_filename{$lang});
 
-	DOC: foreach my $master (sort { return -1 if ($a eq "");
+	DOC: foreach my $master (sort { return -1 if ($a eq "" or $b eq "");
 	                                $document{$a}{'pos'} <=>
 	                                $document{$b}{'pos'} } keys %document) {
 	    next if ($master eq '');

Index: changelog
===================================================================
RCS file: /cvsroot/po4a/po4a/changelog,v
retrieving revision 1.179
retrieving revision 1.180
diff -u -d -r1.179 -r1.180
--- changelog	24 Mar 2007 22:19:12 -0000	1.179
+++ changelog	24 Mar 2007 22:23:17 -0000	1.180
@@ -1,5 +1,10 @@
 2007-03-24  Nicolas François  <nicolas.francois at centraliens.net>
 
+	* po4a: In the sort subroutine, the null document can be the first
+	or second argument.
+
+2007-03-24  Nicolas François  <nicolas.francois at centraliens.net>
+
 	* po4a: Allow quoted arguments in options. This permits to use
 	spaces in arguments to modules options.