Skip to content

Commit

Permalink
[Perl6/Compiler.pir] re-order @*INC again, '.' goes to the end, pmich…
Browse files Browse the repository at this point in the history
…aud++
  • Loading branch information
Martin Berends committed May 26, 2010
1 parent 39c38ca commit 51b61c5
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Perl6/Compiler.pir
Expand Up @@ -128,8 +128,6 @@ Perl6::Compiler - Perl6 compiler
env = root_new ['parrot';'Env']
$S0 = env['PERL6LIB']
$P0 = split ':', $S0
# append the current directory
push $P0, '.'
# append ~/.perl6/lib
$S0 = env['HOME']
if $S0 goto have_home # for users of unix-y systems
Expand All @@ -148,6 +146,8 @@ Perl6::Compiler - Perl6 compiler
concat $S0, $S1
concat $S0, '/languages/perl6/lib'
push $P0, $S0
# append the current directory
push $P0, '.' # remove this when 'use lib' works fine
# $P0 now has all the directories, move them to @*INC
$P1 = new ['Parcel']
# do not use '&circumfix:<[ ]>' because it makes a list of lists
Expand Down

1 comment on commit 51b61c5

@leto
Copy link
Contributor

@leto leto commented on 51b61c5 May 26, 2010

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This is very important from a security perspective. mberends++

Please sign in to comment.