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