Merge pull request #3052 from vrurg/perl-version-threadsafe

Protect class Perl version method with Lock
rakudo · Jul 15, 2019 · 4eb4c0c · 4eb4c0c
2 parents 56af07b + 4c10373
commit 4eb4c0c
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/core/Perl.pm6 b/src/core/Perl.pm6
@@ -15,9 +15,12 @@ class Perl does Systemic {
     method KERNELnames { <darwin linux freebsd openbsd netbsd  dragonfly win32 browser>  }
 
     my %version-cache;
+    my Lock $version-cache-lock .= new;
     method version {
-        my $comp-ver = nqp::p6box_s(nqp::getcomp('perl6').language_version());
-        %version-cache{$comp-ver} //= Version.new($comp-ver);
+        $version-cache-lock.protect: {
+            my $comp-ver = nqp::p6box_s(nqp::getcomp('perl6').language_version());
+            %version-cache{$comp-ver} //= Version.new($comp-ver);
+        }
     }
 }