Module/Install/Win32.pm

#line 1
package Module::Install::Win32;

use strict;
use Module::Install::Base;

use vars qw{$VERSION @ISA $ISCORE};
BEGIN {
        $VERSION = '0.76';
        @ISA     = qw{Module::Install::Base};
        $ISCORE  = 1;
}

# determine if the user needs nmake, and download it if needed
sub check_nmake {
        my $self = shift;
        $self->load('can_run');
        $self->load('get_file');

        require Config;
        return unless (
                $^O eq 'MSWin32'                     and
                $Config::Config{make}                and
                $Config::Config{make} =~ /^nmake\b/i and
                ! $self->can_run('nmake')
        );

        print "The required 'nmake' executable not found, fetching it...\n";

        require File::Basename;
        my $rv = $self->get_file(
                url       => 'http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe',
                ftp_url   => 'ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe',
                local_dir => File::Basename::dirname($^X),
                size      => 51928,
                run       => 'Nmake15.exe /o > nul',
                check_for => 'Nmake.exe',
                remove    => 1,
        );

        die <<'END_MESSAGE' unless $rv;

-------------------------------------------------------------------------------

Since you are using Microsoft Windows, you will need the 'nmake' utility
before installation. It's available at:

  http://download.microsoft.com/download/vc15/Patch/1.52/W95/EN-US/Nmake15.exe
      or
  ftp://ftp.microsoft.com/Softlib/MSLFILES/Nmake15.exe

Please download the file manually, save it to a directory in %PATH% (e.g.
C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
that directory, and run "Nmake15.exe" from there; that will create the
'nmake.exe' file needed by this module.

You may then resume the installation process described in README.

-------------------------------------------------------------------------------
END_MESSAGE

}

1;
1	dpavlin	34	#line 1
2			package Module::Install::Win32;
3
4			use strict;
5			use Module::Install::Base;
6
7	dpavlin	52	use vars qw{$VERSION @ISA $ISCORE};
8	dpavlin	34	BEGIN {
9	dpavlin	52	$VERSION = '0.76';
10			@ISA = qw{Module::Install::Base};
11	dpavlin	34	$ISCORE = 1;
12			}
13
14			# determine if the user needs nmake, and download it if needed
15			sub check_nmake {
16			my $self = shift;
17			$self->load('can_run');
18			$self->load('get_file');
19	dpavlin	52
20	dpavlin	34	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	dpavlin	52	die <<'END_MESSAGE' unless $rv;
42	dpavlin	34
43			-------------------------------------------------------------------------------
44
45			Since you are using Microsoft Windows, you will need the 'nmake' utility
46			before 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
52			Please download the file manually, save it to a directory in %PATH% (e.g.
53			C:\WINDOWS\COMMAND\), then launch the MS-DOS command line shell, "cd" to
54			that directory, and run "Nmake15.exe" from there; that will create the
55			'nmake.exe' file needed by this module.
56
57			You may then resume the installation process described in README.
58
59			-------------------------------------------------------------------------------
60			END_MESSAGE
61	dpavlin	52
62	dpavlin	34	}
63
64			1;