From 36efb863dd350e174c09685a4d865181f495ee5b Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 2 Aug 2016 10:26:00 +0200
Subject: [PATCH] copied md5cat.pm from sourceforge repository
---
textarchive/lib/md5cat.pm | 12 ++++++++++--
1 file changed, 10 insertions(+), 2 deletions(-)
diff --git a/textarchive/lib/md5cat.pm b/textarchive/lib/md5cat.pm
index 3077a3c..0f0d342 100644
--- a/textarchive/lib/md5cat.pm
+++ b/textarchive/lib/md5cat.pm
@@ -1,5 +1,5 @@
#
-# $Id: md5cat.pm,v 1.8 2016/08/01 09:40:20 gonter Exp $
+# $Id: md5cat.pm,v 1.9 2016/08/02 08:24:55 gonter Exp $
#
=head1 NAME
@@ -25,6 +25,9 @@ use strict;
use Digest::MD5::File;
+my $run= 1;
+sub run { $run; }
+
sub new
{
my $class= shift;
@@ -46,6 +49,8 @@ sub new
$md5cat->set_catalog ();
+ $SIG{INT}= sub { $run= 0 };
+
$md5cat;
}
@@ -532,9 +537,12 @@ sub digest_md5_list
my @res= ();
my $cnt= 0;
- while (my $f= shift (@_))
+ MD5: while (my $f= shift (@_))
{
printf ("%9d items processed\n", $cnt) if ((++$cnt % 10000) == 0);
+
+ last MD5 unless ($run);
+
my @st= stat ($f);
unless (@st)
{
--
GitLab