# HG changeset patch
# User casties
# Date 1089647357 -7200
# Node ID 1a377102b1cef810a981f6883c4b8ceb472fb6be
# Parent  046d584ed7b31442b2bde0644c24661d4493eca5
small fix for number of hash keys

diff -r 046d584ed7b3 -r 1a377102b1ce archiver.pl
--- 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;