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

diff --git a/t/02-pp.t b/t/02-pp.t
index c4df852..0e41842 100644
--- a/t/02-pp.t
+++ b/t/02-pp.t
@@ -3,20 +3,24 @@
 use strict;
 use warnings;
 
-use Config qw/%Config/;
+use Config qw<%Config>;
 
 use Test::More tests => 4;
 
 BEGIN {
- my $re = join '|',
-           grep defined && length,
-            @Config{qw/myarchname archname/}, 'arch';
- @INC = grep !/(?:$re)$/, @INC
+ require XSLoader;
+ my $xsloader_load_orig = \&XSLoader::load;
+ no warnings 'redefine';
+ *XSLoader::load = sub {
+  die if $_[0] eq 'Scalar::Vec::Util';
+  goto $xsloader_load_orig;
+ };
 }
-use Scalar::Vec::Util qw/vfill vcopy veq SVU_PP/;
+
+use Scalar::Vec::Util qw<vfill vcopy veq SVU_PP>;
 
 is(SVU_PP, 1, 'using pure perl subroutines');
-for (qw/vfill vcopy veq/) {
+for (qw<vfill vcopy veq>) {
  no strict 'refs';
  is(*{$_}{CODE}, *{'Scalar::Vec::Util::'.$_}{CODE}, $_ .' is ' . $_ . '_pp');
 }