dgit: Fix on NFS (avoid leaking an open file in a directory to rm)

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 4bd2e0534ff21e14f564f0a7eefa81f5e380fe5f..0775a7c1f31a7337a2c57cde033d77b72af8a734 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -4024,6 +4024,7 @@ sub get_source_format () {
     }
     $_ = <F>;
     F->error and confess "$!";
+    close F;
     chomp;
     return ($_, \%options);
 }