X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=t%2F02-pp.t;h=a4d5f0faf6443aa062e4d5e64e4467b677acac30;hp=c4df852a313e560d01f021fe70bd7c8d68704c69;hb=858989a385e838e44a21a7b5b4d46ed933f8cbb2;hpb=831b8bd03ca3ae94e3ba9e1e1b7d9be913dc9d13

diff --git a/t/02-pp.t b/t/02-pp.t
index c4df852..a4d5f0f 100644
--- a/t/02-pp.t
+++ b/t/02-pp.t
@@ -11,9 +11,12 @@ BEGIN {
  my $re = join '|',
            grep defined && length,
             @Config{qw/myarchname archname/}, 'arch';
- @INC = grep !/(?:$re)$/, @INC
+ my @inc = @INC;
+ @INC = grep !/(?:$re)$/, @INC;
+ require Scalar::Vec::Util;
+ Scalar::Vec::Util->import(qw/vfill vcopy veq SVU_PP/);
+ @INC = @inc;
 }
-use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
 
 is(SVU_PP, 1, 'using pure perl subroutines');
 for (qw/vfill vcopy veq/) {