summaryrefslogtreecommitdiff
path: root/ext/Test-Harness/t/compat/inc-propagation.t
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Test-Harness/t/compat/inc-propagation.t')
-rw-r--r--ext/Test-Harness/t/compat/inc-propagation.t7
1 files changed, 5 insertions, 2 deletions
diff --git a/ext/Test-Harness/t/compat/inc-propagation.t b/ext/Test-Harness/t/compat/inc-propagation.t
index ffa53700a1..c0d62b0407 100644
--- a/ext/Test-Harness/t/compat/inc-propagation.t
+++ b/ext/Test-Harness/t/compat/inc-propagation.t
@@ -5,6 +5,10 @@
use strict;
use lib 't/lib';
+use Config;
+
+local
+ $ENV{PERL5OPT}; # avoid any user-provided PERL5OPT from contaminating @INC
sub has_crazy_patch {
my $sentinel = 'blirpzoffle';
@@ -32,9 +36,8 @@ my $test_template = <<'END';
use Test::More tests => 2;
-# Make sure we did something sensible with PERL5LIB
+is $INC[0], "wibble", 'basic order of @INC preserved' or diag "\@INC: @INC";
like $ENV{PERL5LIB}, qr{wibble};
-ok grep { $_ eq 'wibble' } @INC;
END