diff options
-rw-r--r-- | time-getter.pl | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/time-getter.pl b/time-getter.pl index a42be33..4f53041 100644 --- a/time-getter.pl +++ b/time-getter.pl @@ -64,17 +64,14 @@ while (<COMMITS>) { next; } + if ($list{$filename} !~ /$blobhash/) { - print $filename . "\t" . $prevtimestamp . " \n"; - delete ($list{$filename}); - delete ($all_file{$filename}); + do_print($filename, $prevtimestamp); } } foreach my $filename (keys(%remained)) { - print $filename . "\t" . $prevtimestamp . " \n"; - delete ($list{$filename}); - delete ($all_file{$filename}); + do_print($filename, $prevtimestamp); } $prevtimestamp = $timestamp; @@ -82,4 +79,11 @@ while (<COMMITS>) { close (BLOBS); } +sub do_print() { + my ($filename, $timestamp) = @_; + print $filename . "\t" . $timestamp . " \n"; + delete ($list{$filename}); + delete ($all_file{$filename}); +} + close (COMMITS); |