Mercurial > hg > foxridge-archiver

changeset 5:1a377102b1ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
small fix for number of hash keys
author casties
date Mon, 12 Jul 2004 17:49:17 +0200
parents 046d584ed7b3
children a3feffd94021
files archiver.pl
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/archiver.pl	Thu Jul 08 23:23:53 2004 +0200
+++ b/archiver.pl	Mon Jul 12 17:49:17 2004 +0200
@@ -16,7 +16,7 @@
 #
 
 # program version
-my $version = "0.5.1 (8.7.2004)";
+my $version = "0.5.2 (12.7.2004)";
 
 # rewrite XML file (necessary for archive date!)
 my $fix_xml = 1;
@@ -378,9 +378,10 @@
 }
 
 # start archiving
-my $archived_files = run_archive;
+my $archived_files = run_archive();
+my $num_archfiles = scalar keys %$archived_files;
 
-print "INFO: ", scalar keys %$archived_files, " files archived\n";
+print "INFO: $num_archfiles files archived\n";
 
 # check list of archived files
 check_files($files_to_archive, $archived_files);
@@ -400,7 +401,6 @@
 
 print "INFO: $warncnt warnings\n";
 print "INFO: $errcnt errors\n";
-my $num_archfiles = %$archived_files + 1;
 if ($errcnt > 0) {
     print "ABORT: there were errors! ($num_archfiles files archived) at ", stime(time), "\n";
     exit 1;