Permalink
Browse files

change $*CWD and $*TMPDIR to IO::Path objects

 by request from dagurval++ and S16 spec
  • Loading branch information...
1 parent d14d6f9 commit 33c5e82f54434200dd6cb091f904d67a21338ec2 @labster labster committed Jun 11, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/core/terms.pm
View
@@ -81,7 +81,7 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
};
nqp::bindkey(nqp::who(PROCESS), '$PERL', $PERL);
- my $CWD = nqp::p6box_s(pir::new__PS('OS').cwd);
+ my $CWD = nqp::p6box_s(pir::new__PS('OS').cwd).path;
nqp::bindkey(nqp::who(PROCESS), '$CWD', $CWD);
my @INC;
@@ -142,7 +142,7 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
# XXX JVM doesn't handle IO::Spec yet
#?if !jvm
- $PROCESS::TMPDIR = IO::Spec.tmpdir();
+ $PROCESS::TMPDIR = IO::Spec.tmpdir().path;
#?endif
}

0 comments on commit 33c5e82

Please sign in to comment.