1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
package MakeMaker::Test::NoXS;
# Disable all XS loading.
use Carp;
require DynaLoader;
require XSLoader;
# Things like Cwd key on this to decide if they're running miniperl
delete $DynaLoader::{boot_DynaLoader};
# This isn't 100%. Things like Win32.pm will crap out rather than
# just not load. See ExtUtils::MM->_is_win95 for an example
no warnings 'redefine';
*DynaLoader::bootstrap = sub { confess "Tried to load XS for @_"; };
*XSLoader::load = sub { confess "Tried to load XS for @_"; };
1;
|
