This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Get avhv.t working under miniperl
authorFather Chrysostomos <sprout@cpan.org>
Tue, 2 Sep 2014 07:16:08 +0000 (00:16 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Wed, 3 Sep 2014 03:11:16 +0000 (20:11 -0700)
If things are broken enough that make_ext.pl cannot run, then mini-
test may run this script before everything is built. Hence, we need to
make sure the directories that buildcustomize.pl puts in @INC are not
clobbered by the test script.

t/op/avhv.t

index d301fad..6d9d47c 100644 (file)
@@ -5,7 +5,9 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    require './test.pl';
+    @INC = () unless is_miniperl();
+    unshift @INC, '../lib';
 }
 
 require Tie::Array;
@@ -20,7 +22,6 @@ sub STORESIZE { $#{$_[0]} = $_[1]+1 }
 
 package main;
 
-require './test.pl';
 plan(tests => 40);
 
 # Helper function to check the typical error message.