- 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;
+ };