blob: df36e82c21716b21419a52d8cd47ccfa79087343 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
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};
if ($^O eq 'MSWin32') {
require Win32;
my $GetCwd = *{'Win32::GetCwd'}{CODE};
my $SetChildShowWindow = *{'Win32::SetChildShowWindow'}{CODE};
%{*main::Win32::{HASH}} = ();
*{'Win32::GetCwd'} = $GetCwd;
*{'Win32::SetChildShowWindow'} = $SetChildShowWindow;
}
# 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;
|
