X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F02-pp.t;h=a4d5f0faf6443aa062e4d5e64e4467b677acac30;hb=0062dbd2da53db62346382e729b84097131c61ee;hp=92ee0c865a27691ea90b9aee4d80ba9cf0c20d64;hpb=f77706f0734eb34a9623cc492b5d73061fba9b62;p=perl%2Fmodules%2FScalar-Vec-Util.git

diff --git a/t/02-pp.t b/t/02-pp.t
index 92ee0c8..a4d5f0f 100644
--- a/t/02-pp.t
+++ b/t/02-pp.t
@@ -3,10 +3,20 @@
 use strict;
 use warnings;
 
+use Config qw/%Config/;
+
 use Test::More tests => 4;
 
-BEGIN { @INC = grep !/arch$/, @INC }
-use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
+BEGIN {
+ my $re = join '|',
+           grep defined && length,
+            @Config{qw/myarchname archname/}, 'arch';
+ my @inc = @INC;
+ @INC = grep !/(?:$re)$/, @INC;
+ require Scalar::Vec::Util;
+ Scalar::Vec::Util->import(qw/vfill vcopy veq SVU_PP/);
+ @INC = @inc;
+}
 
 is(SVU_PP, 1, 'using pure perl subroutines');
 for (qw/vfill vcopy veq/) {