Skip to content

Commit

Permalink
split PERL6LIB on ; on MSWin32 platform - szabgab++ for telling us
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Aug 3, 2010
1 parent 9667975 commit 0a8ef0f
Showing 1 changed file with 10 additions and 3 deletions.
13 changes: 10 additions & 3 deletions src/Perl6/Compiler.pir
Expand Up @@ -151,10 +151,19 @@ Perl6::Compiler - Perl6 compiler

# Set up @*INC from $PERL6LIB, languages/perl6/lib and ~/.perl6/lib
.local pmc env, interp, config
interp = getinterp
config = interp[.IGLOBALS_CONFIG_HASH]
# Convert PERL6LIB first
env = root_new ['parrot';'Env']
$S0 = env['PERL6LIB']
$P0 = split ':', $S0

.local string sep, os
sep = ':'
os = config['osname']
ne os, 'MSWin32', perl6lib_split
sep = ';'
perl6lib_split:
$P0 = split sep, $S0
# append ~/.perl6/lib
$S0 = env['HOME']
if $S0 goto have_home # for users of unix-y systems
Expand All @@ -166,8 +175,6 @@ Perl6::Compiler - Perl6 compiler
concat $S0, '/.perl6/lib'
push $P0, $S0
# append the installed Parrot languages/perl6/lib directory
interp = getinterp
config = interp[.IGLOBALS_CONFIG_HASH]
$S0 = config['libdir']
$S1 = config['versiondir']
concat $S0, $S1
Expand Down

0 comments on commit 0a8ef0f

Please sign in to comment.