diff options
author | Nao Ueda <nao.uedder@gmail.com> | 2021-02-06 09:04:08 +0900 |
---|---|---|
committer | Nao Ueda <nao.uedder@gmail.com> | 2021-02-06 11:01:12 +0900 |
commit | a8e5e61d0b3319e70bc97f9147de98334eaee43d (patch) | |
tree | ace46df91376d750bedfbe1659243fd48c0917e3 /time-getter.pl | |
parent | f8be8564952ac0c9e7a6a253ab5aedb7a66e95d5 (diff) | |
download | git-file-changed-time-getter-a8e5e61d0b3319e70bc97f9147de98334eaee43d.tar.gz git-file-changed-time-getter-a8e5e61d0b3319e70bc97f9147de98334eaee43d.tar.bz2 git-file-changed-time-getter-a8e5e61d0b3319e70bc97f9147de98334eaee43d.zip |
refactoring
Diffstat (limited to 'time-getter.pl')
-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); |