1package MakeMaker::Test::NoXS; 2 3# Disable all XS loading. 4 5use Carp; 6 7require DynaLoader; 8require XSLoader; 9 10# Things like Cwd key on this to decide if they're running miniperl 11delete $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 15no warnings 'redefine'; 16*DynaLoader::bootstrap = sub { confess "Tried to load XS for @_"; }; 17*XSLoader::load = sub { confess "Tried to load XS for @_"; }; 18 191; 20