diff options
| author | Martin Langhoff <martin@catalyst.net.nz> | 2006-05-23 00:45:47 +1200 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-05-22 18:12:27 -0700 |
| commit | f396f01f11208789875b61e4e0e3239b04f9e38d (patch) | |
| tree | 650e3c9b2f01dbd3766b72027919de2d3a5145c4 | |
| parent | f803eec51b6fe812c523c8f6474e029163b307e8 (diff) | |
| download | git-f396f01f11208789875b61e4e0e3239b04f9e38d.tar.gz git-f396f01f11208789875b61e4e0e3239b04f9e38d.tar.xz | |
cvsimport: minor fixups
Cleanup @skipped after it's used. Close a fhandle.
Removing suspects one at a time.
Signed-off-by: Martin Langhoff <martin@catalyst.net.nz>
Signed-off-by: Junio C Hamano <junkio@cox.net>
| -rwxr-xr-x | git-cvsimport.perl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/git-cvsimport.perl b/git-cvsimport.perl index 8c707f2c6..282646af3 100755 --- a/git-cvsimport.perl +++ b/git-cvsimport.perl @@ -650,6 +650,8 @@ my $commit = sub { "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 @@ my $commit = sub { if (@skipped) { $logmsg .= "\n\n\nSKIPPED:\n\t"; $logmsg .= join("\n\t", @skipped) . "\n"; + @skipped = (); } print $pw "$logmsg\n" |