Make sure we close filehandle after reading

See http://irclog.perlgeek.de/perl6-dev/2016-08-26#i_13097501
rakudo · Aug 26, 2016 · ede7c60 · ede7c60
1 parent ebf34aa
commit ede7c60
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/core/CompUnit/Repository/FileSystem.pm b/src/core/CompUnit/Repository/FileSystem.pm
@@ -59,8 +59,13 @@ class CompUnit::Repository::FileSystem does CompUnit::Repository::Locally does C
                 my $content-id = nqp::sha1(
                     [~]
                     map    {
-                        my $handle := $_.IO.open;
-                        $handle ?? nqp::sha1($handle.slurp-rest(:enc<latin1>)) !! ''
+                        if $_.IO.open -> $handle {
+                            LEAVE $handle.close;
+                            nqp::sha1($handle.slurp-rest(:enc<latin1>));
+                        }
+                        else {
+                            ''
+                        }
                     },
                     grep   {
                         try Rakudo::Internals.FILETEST-F($_)