[PATCH] Factor out useful test case infrastructure from t/t6001... into t/t6000-lib.sh

diff --git a/git-cvsimport-script b/git-cvsimport-script
index 4c0333b9290a15d6222f68b6397fc456116854cd..6d5a7fad38b128876903c96ce3badcc01001b185 100755 (executable)
--- a/git-cvsimport-script
+++ b/git-cvsimport-script
@@ -317,6 +317,7 @@ sub file {
            $res = $self->_line($fh);
            die "No input: $fn $rev\n" unless defined $res;
        }
+       close ($fh);
 
        return ($name, $res);
 }