| Server IP : 45.40.142.9 / Your IP : 216.73.216.151 Web Server : Apache System : Linux s45-40-142-9.secureserver.net 2.6.32-754.35.1.el6.x86_64 #1 SMP Sat Nov 7 12:42:14 UTC 2020 x86_64 User : bayspec ( 506) PHP Version : 5.6.40 Disable Function : NONE MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /.cpanm/work/1494616241.5243/ExtUtils-MakeMaker-7.24/t/lib/MakeMaker/Test/ |
Upload File : |
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;