refactoring

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);