[Po4a-devel][CVS] po4a Build.PL,1.5,1.6

[Jordi Vilalta]

Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv12156

Modified Files:
	Build.PL 
Log Message:
Sort the lists of files before updating the pot's.
Without this, we were sending lots of unnecesary diff with each po/pot update
depending on how the files were ordered in everyone's hard disk (same messages
in different order).
Things should stabilize with the next po/pot commits.


Index: Build.PL
===================================================================
RCS file: /cvsroot/po4a/po4a/Build.PL,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Build.PL	17 Jul 2004 07:36:00 -0000	1.5
+++ Build.PL	18 Jul 2004 09:58:32 -0000	1.6
@@ -27,7 +27,7 @@
 	sub ACTION_binpo {
 	    my $self = shift;
 	    
-	    my @files = (keys(%{$self->script_files()}), @{$self->rscan_dir('lib',qr{\.pm$})});
+	    my @files = sort((keys(%{$self->script_files()}), @{$self->rscan_dir('lib',qr{\.pm$})}));
 	    
 	    unless ($self->up_to_date(\@files, "po/bin/po4a.pot")) {
 		print "XX Update po/bin/po4a.pot\n";
@@ -85,7 +85,7 @@
 	    my $self = shift;
 	    
 	    # update pot
-	    my @files = (keys(%{$self->script_files()}), @{$self->rscan_dir('lib',qr{\.pm$})}, @{$self->rscan_dir('doc',qr{\.pod$})});
+	    my @files = sort((keys(%{$self->script_files()}), @{$self->rscan_dir('lib',qr{\.pm$})}, @{$self->rscan_dir('doc',qr{\.pod$})}));
 	    unless ($self->up_to_date(\@files, "po/pod/po4a-pod.pot")) {
 		my $podfiles = join ("", map {" -m ../../".$_ } @files);
 		print "XX Update documentation pot files: ";