Make sure we close the flavor file

rakudo · May 5, 2024 · c888a11 · c888a11
1 parent 6e55b11
commit c888a11
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Perl6/Compiler.nqp b/src/Perl6/Compiler.nqp
@@ -174,14 +174,15 @@ class Perl6::Compiler is HLL::Compiler {
         }
 
         # Support different flavors of Rakudo, i.e. Star.
-        # Rakudo flavor can be either set by an environment variable 'RAKUDO_FLAVOR'
-        # or by the special file '$RAKUDO_PREFIX/etc/FLAVOR'
+        # Rakudo flavor can be either set by an environment variable
+        # 'RAKUDO_FLAVOR' or by the special file '$RAKUDO_PREFIX/etc/FLAVOR'
         if nqp::existskey(nqp::getenvhash(), 'RAKUDO_FLAVOR') {
             $rakudo-flavor := " " ~ (nqp::getenvhash<RAKUDO_FLAVOR>) ~ $rakudo-core-flavor;
         }
         elsif nqp::stat($flavor-file, nqp::const::STAT_EXISTS) {
             my $data := open($flavor-file, :r);
             $rakudo-flavor :=  " " ~ ($data.get) ~ $rakudo-core-flavor;
+            close($data);
         }
         else {
              $rakudo-flavor := $rakudo-core-flavor;