[PATCH] cvsimport: minor fixups
- From
- Martin Langhoff <martin@catalyst.net.nz>
- Date
- May 22, 2006, 12:45 UTC
- Message-ID
- <11483019472537-git-send-email-martin@catalyst.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