From 25c6b11fa811bfbdcc6487fc4e706365e42e2bea Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 22 Oct 2013 09:43:33 +0200
Subject: [PATCH] printing diagnostic messages
---
textarchive/vlib001.pl | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index 79bd0a2..f1d31b3 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -181,6 +181,7 @@ sub refresh_internal
my $cnt_dropped= 0;
$objreg->verify_toc (\&verify_toc_item, \@hdr);
+ print "toc verfified\n";
my $toc= $objreg->load_single_toc ($store);
# print "toc: ", Dumper ($toc);
@@ -276,11 +277,12 @@ print __LINE__, " integrate_md5_sums\n";
push (@drop, [$k, $p]) if ($x1->{$p} == 0);
}
}
- # print __LINE__, " drop: ", Dumper (\@drop);
+ print __LINE__, " drop: ", Dumper (\@drop);
$objreg->remove_from_store ($store, \@drop);
- printf ("files: %6d processed; %6d updated; %6d (%d) dropped\n", $cnt_processed, $cnt_updated, $cnt_dropped, scalar (@drop));
+ printf ("files: %6d processed; %6d updated; %6d (%d) dropped\n",
+ $cnt_processed, $cnt_updated, $cnt_dropped, scalar (@drop));
}
sub process_file
--
GitLab