Fix some more deprecations

rakudo · May 16, 2014 · 2c73b2a · 2c73b2a
1 parent c4ae894
commit 2c73b2a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -537,7 +537,7 @@ my class Str does Stringy { # declared in BOOTSTRAP
     multi method perl(Str:D:) {
         my $result = '"';
 #?if parrot
-        my $icu = $*VM<config><has_icu>;
+        my $icu = $*VM.config<has_icu>;
         for ^self.chars -> $i {
             my $ch = self.substr($i, 1);
             $result ~= %esc{$ch} 

diff --git a/src/core/core_epilogue.pm b/src/core/core_epilogue.pm
@@ -30,7 +30,7 @@ if "$prefix/share/libraries.cfg".IO.e {
             my $name = %options<name> // '';
             my $prio = %options<prio> // 0;
             %repos{~$<class>}{$name}{$prio} //= [];
-            my $env_sep = $*OS eq 'MSWin32' ?? ';' !! ':';
+            my $env_sep = $*DISTRO.is-win ?? ';' !! ':';
             my @path = $<path>.split($env_sep);
             for @path {
                 %repos{~$<class>}{$name}{$prio}.push(.IO.path.is-relative ?? "$prefix/share/$_" !! .Str);