# [PATCH] cvsimport: minor fixups

1 messages from 2006-05-22 to 2006-05-22. Participants: Martin Langhoff.
Thread: https://gitlist.dev/t/4241

## Martin Langhoff, 2006-05-22 12:45

Subject: [PATCH] cvsimport: minor fixups
Message-ID: <11483019472537-git-send-email-martin@catalyst.net.nz>
URL: https://gitlist.dev/e/11483019472537-git-send-email-martin%40catalyst.net.nz

```
Cleanup @skipped after it's used. Close a fhandle. 
Removing suspects one at a time.

Signed-off-by: Martin Langhoff <martin@catalyst.net.nz>


---

 git-cvsimport.perl |    3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

93bef2832d30c9a04e95ff348b9ab8ab8cabee98
diff --git a/git-cvsimport.perl b/git-cvsimport.perl
index 2ecfe14..176b787 100755
--- a/git-cvsimport.perl
+++ b/git-cvsimport.perl
@@ -650,6 +650,8 @@ sub commit {
 			"GIT_COMMITTER_DATE=".strftime("+0000 %Y-%m-%d %H:%M:%S",gmtime($date)),
 			"git-commit-tree", $tree,@par);
 		die "Cannot exec git-commit-tree: $!\n";
+		
+		close OUT;
 	}
 	$pw->writer();
 	$pr->reader();
@@ -661,6 +663,7 @@ sub commit {
 	if (@skipped) {
 	    $logmsg .= "\n\n\nSKIPPED:\n\t";
 	    $logmsg .= join("\n\t", @skipped) . "\n";
+	    @skipped = ();
 	}
 
 	print $pw "$logmsg\n"
-- 
1.3.2.g82000

```