1#line 1 2package Module::Install::Win32; 3 4use strict; 5use Module::Install::Base (); 6 7use vars qw{$VERSION @ISA $ISCORE}; 8BEGIN { 9 $VERSION = '1.01'; 10 @ISA = 'Module::Install::Base'; 11 $ISCORE = 1; 12} 13 14# determine if the user needs nmake, and download it if needed 15sub check_nmake { 16 my $self = shift; 17 $self->load('can_run'); 18 $self->load('get_file'); 19 20 require Config; 21 return unless ( 22 $^O eq 'MSWin32' and 23 $Config::Config{make} and 24 $Config::Config{make} =~ /^nmake\b/i and 25 ! $self->can_run('nmake') 26 ); 27 28 print "The required 'nmake' executable not found, fetching it...\n"; 29 30 require File::Basename; 31 my $rv = $self->get_file( 32 url => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe', 33 ftp_url => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe', 34 local_dir => File::Basename::dirname($^X), 35 size => 51928, 36 run => 'Nmake15.exe /o > nul', 37 check_for => 'Nmake.exe', 38 remove => 1, 39 ); 40 41 die <<'END_MESSAGE' unless $rv; 42 43------------------------------------------------------------------------------- 44 45Since you are using Microsoft Windows, you will need the 'nmake' utility 46before installation. It's available at: 47 48 http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe 49 or 50 ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe 51 52Please download the file manually, save it to a directory in %PATH% (e.g. 53C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to 54that directory, and run "Nmake15.exe" from there; that will create the 55'nmake.exe' file needed by this module. 56 57You may then resume the installation process described in README. 58 59------------------------------------------------------------------------------- 60END_MESSAGE 61 62} 63 641; 65