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: ";