Permalink
Browse files

remove . from default @*INC

  • Loading branch information...
1 parent 30c0796 commit b09c6f8cda488ebc825e1baa7f2d0e1360bdfe2c @moritz moritz committed May 8, 2012
Showing with 6 additions and 4 deletions.
  1. +1 −0 docs/ChangeLog
  2. +0 −1 src/core/terms.pm
  3. +2 −1 t/harness
  4. +2 −1 tools/autounfudge.pl
  5. +1 −1 tools/update_passing_test_data.pl
View
@@ -18,6 +18,7 @@ New in 2012.05
+ lib.pm
+ updated calling conventions for traits
+ implemented fff flip-flop operator; improvements to ff form also
++ removed current directory from default library search path
New in 2012.04.1
+ autvivification for arrays and hashes
View
@@ -71,7 +71,6 @@ sub term:<time>() { nqp::p6box_i(pir::time__I()) }
}
@INC.push($VM<config><libdir> ~ $VM<config><versiondir> ~ '/languages/perl6/lib');
@INC.push('.'); # XXX: remove this when 'use lib' works fine
-
my $I := nqp::atkey(nqp::atkey(%*COMPILING, '%?OPTIONS'), 'I');
if pir::defined($I) {
if pir::does($I, 'array') {
View
@@ -13,7 +13,8 @@ use Pod::Usage;
my $slash = $^O eq 'MSWin32' ? '\\' : '/';
$ENV{'HARNESS_PERL'} = ".${slash}perl6";
-$ENV{'PERL6LIB'} = 'lib';
+my $path_sep = $^O eq 'MSWin32' ? ';' : ':';
+$ENV{'PERL6LIB'} = join $path_sep, qw/ lib . /;
use Test::Harness;
$Test::Harness::switches = '';
View
@@ -81,7 +81,8 @@ =head1 MISCELLANEA
'jobs=i' => \$threads_num,
or usage();
-$ENV{PERL6LIB} = 'lib' unless $keep_env;
+my $path_sep = $^O eq 'MSWin32' ? ';' : ':';
+$ENV{PERL6LIB} = join($path_sep, qw/lib ./) unless $keep_env;
my @files;
@@ -123,7 +123,7 @@ sub read_specfile {
sub get_harness {
return TAP::Harness->new({
verbosity => -2,
- exec => [$^X, 'tools/perl6-limited.pl'],
+ exec => [$^X, 'tools/perl6-limited.pl', qw/-Ilib -I./],
merge => 1,
});
}

0 comments on commit b09c6f8

Please sign in to comment.