Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Pick correct IO::Spec when running on JVM.

  • Loading branch information...
commit 7cede9dc32782b01d4dfe8d45624f8f82737629c 1 parent 7e2d8bc
Jonathan Worthington authored September 25, 2013

Showing 1 changed file with 4 additions and 3 deletions. Show diff stats Hide diff stats

  1. 7  src/core/IO/Spec.pm
7  src/core/IO/Spec.pm
@@ -16,11 +16,12 @@ my class IO::Spec {
16 16
 );
17 17
 
18 18
     #  this is really just a way of getting $*OS when it's not in scope yet
  19
+    my $submodule;
19 20
 #?if parrot
20  
-    my $submodule = %module{ nqp::atkey(nqp::atpos(pir::getinterp__P, pir::const::IGLOBALS_CONFIG_HASH), 'osname') };
  21
+    $submodule = %module{ nqp::atkey(nqp::atpos(pir::getinterp__P, pir::const::IGLOBALS_CONFIG_HASH), 'osname') };
21 22
 #?endif
22  
-#?if !parrot
23  
-    my $submodule;
  23
+#?if jvm
  24
+    $submodule = %module{ nqp::p6box_s(nqp::atkey(nqp::jvmgetproperties(), 'os.name')) };
24 25
 #?endif
25 26
     my $SPEC := IO::Spec.WHO{ $submodule // 'Unix' };
26 27
 

0 notes on commit 7cede9d

Please sign in to comment.
Something went wrong with that request. Please try again.