Permalink
Browse files

Close the input channel early

  • Loading branch information...
1 parent 45651c3 commit 2651e76a3f1681788f7e473b1ef98fab7c3e9904 @samoht samoht committed Nov 22, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 src/core/opamSystem.ml
View
1 src/core/opamSystem.ml
@@ -318,6 +318,7 @@ module Tar = struct
let ic = open_in f in
let c1 = input_char ic in
let c2 = input_char ic in
+ close_in ic;
match c1, c2 with
| '\031', '\139' -> Some 'z'
| 'B' , 'Z' -> Some 'j'

0 comments on commit 2651e76

Please sign in to comment.