r1507@llin: dpavlin | 2007-11-04 12:17:19 +0100

 sort XML files by filename before processing it (to preserve order if
 filenames are sortable and they usually are)

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@984 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/XML.pm b/lib/WebPAC/Input/XML.pm
index 99e3121..ec64ab3 100644 (file)
--- a/lib/WebPAC/Input/XML.pm
+++ b/lib/WebPAC/Input/XML.pm
@@ -72,7 +72,7 @@ sub new {
 
        $log->info("found ", $#files + 1, " XML files in ", $arg->{path});
 
-       $self->{_files} = \@files;
+       $self->{_files} = [ sort @files ];
 
        $self ? return $self : return undef;
 }
@@ -103,7 +103,7 @@ sub fetch_rec {
 
        ) || $log->logdie("can't open $path: $!");
 
-       warn "### fetch_rec( $mfn ) => $path => xml is ",dump($xml);
+       $log->debug("fetch_rec( $mfn ) => $path => xml is ",sub { dump($xml) });
 
        # add mfn
        $xml->{'000'} = [ $mfn ];