Permalink
Browse files

prevent startup error if %*ENV<HOME> is empty

  • Loading branch information...
moritz committed Oct 17, 2011
1 parent ded7222 commit 16a3b95fcecc1b887f4909812c8808a8074def06
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/core/terms.pm
View
@@ -27,7 +27,9 @@ sub term:<time>() { nqp::p6box_i(pir::time__I()) }
my @INC;
@INC.push('lib');
@INC.push(%ENV<PERL6LIB>.split($VM<config><osname> eq 'MSWin32' ?? ';' !! ':')) if %ENV<PERL6LIB>;
@INC.push((%ENV<HOME> // %ENV<HOMEDRIVE> ~ %ENV<HOMEPATH>) ~ '/.perl6/lib');
try {
@INC.push((%ENV<HOME> // %ENV<HOMEDRIVE> ~ %ENV<HOMEPATH>) ~ '/.perl6/lib');
}
@INC.push($VM<config><libdir> ~ $VM<config><versiondir> ~ '/languages/perl6/lib');
@INC.push('.'); # XXX: remove this when 'use lib' works fine
nqp::bindkey(pir::get_who__PP(PROCESS), '@INC', @INC);

0 comments on commit 16a3b95

Please sign in to comment.