Only need to check for is-win once

rakudo · Feb 18, 2015 · 12c7e5c · 12c7e5c
1 parent 66de7b2
commit 12c7e5c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/CompUnitRepo/Local/Installation.pm b/src/core/CompUnitRepo/Local/Installation.pm
@@ -106,14 +106,15 @@ sub MAIN(:$name, :$auth, :$ver, *@pos, *%named) {
             }
             else {
                 if $file ~~ /^bin<[\\\/]>/ {
+                    my $is-win := $*DISTRO.is-win;
                     mkdir "$path/bin" unless "$path/bin".IO.d;
                     my $basename   = $file.IO.basename;
                     my $withoutext = $basename;
                     $withoutext.=subst(/\.[exe|bat]$/, '');
                     for '', < -p -j -m > -> $be {
                         "$path/bin/$withoutext$be".IO.spurt:
                             $perl_wrapper.subst('#name#', $basename, :g).subst('#perl#', "perl6$be");
-                        if $*DISTRO.is-win {
+                        if $is-win {
                             "$path/bin/$withoutext$be.bat".IO.spurt:
                                 $windows_wrapper.subst('#perl#', "perl6$be");
                         }