Pick correct IO::Spec when running on JVM.

rakudo · Sep 25, 2013 · 7cede9d · 7cede9d
1 parent 7e2d8bc
commit 7cede9d
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/core/IO/Spec.pm b/src/core/IO/Spec.pm
@@ -16,11 +16,12 @@ my class IO::Spec {
 );
 
     #  this is really just a way of getting $*OS when it's not in scope yet
+    my $submodule;
 #?if parrot
-    my $submodule = %module{ nqp::atkey(nqp::atpos(pir::getinterp__P, pir::const::IGLOBALS_CONFIG_HASH), 'osname') };
+    $submodule = %module{ nqp::atkey(nqp::atpos(pir::getinterp__P, pir::const::IGLOBALS_CONFIG_HASH), 'osname') };
 #?endif
-#?if !parrot
-    my $submodule;
+#?if jvm
+    $submodule = %module{ nqp::p6box_s(nqp::atkey(nqp::jvmgetproperties(), 'os.name')) };
 #?endif
     my $SPEC := IO::Spec.WHO{ $submodule // 'Unix' };