From c4968262e6c279f22a9bfe8e9c596c35c26aa461 Mon Sep 17 00:00:00 2001
From: gg <gg@phaidra-sandbox.univie.ac.at>
Date: Thu, 15 Oct 2015 06:41:36 +0200
Subject: [PATCH] ineffective change, see also md5cat.pm
---
textarchive/vlib001.pl | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index d95ec46..401c855 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -64,6 +64,7 @@ my $DEBUG= 0;
my $STOP= 0;
my $op_mode= 'refresh';
my $limit= undef;
+my $show_every= 1000;
my $cat_file= '_catalog';
my $ino_file= '_catalog.inodes';
my $check_inode= 1;
@@ -319,7 +320,8 @@ sub refresh_internal
printf ("%6d items to be processed\n", scalar @$toc);
foreach my $x (@$toc)
{
- printf ("%6d items processed\n", $cnt) if ((++$cnt % 100) == 0);
+ # print "show_every=[$show_every]\n"; exit;
+ printf ("%6d items processed\n", $cnt) if ((++$cnt % $show_every) == 0);
# print __LINE__, " k=[$k]\n";
my $k= $x->{'key'};
my $p= $x->{'path'};
--
GitLab