← Back to branch summary

~ubuntu-branches/ubuntu/lucid/libfile-remove-perl/lucid

« back to all changes in this revision

Viewing changes to inc/Module/Install/Win32.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2008-07-10 21:00:37 UTC
  • mfrom: (1.1.8 upstream) (2.1.2 lenny)
  • Revision ID: james.westby@ubuntu.com-20080710210037-pd1ya3lmop5g731o
Tags: 1.42-1
* New upstream release.
* debian/copyright: adjust to wording in upstream README; add
  copyright/license information for files under inc/.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/Win32.pm
1
1
#line 1
2
 
package Module::Install::Win32;
3
 
 
4
 
use strict;
5
 
use Module::Install::Base;
6
 
 
7
 
use vars qw{$VERSION @ISA $ISCORE};
8
 
BEGIN {
9
 
        $VERSION = '0.75';
10
 
        @ISA     = qw{Module::Install::Base};
11
 
        $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
 
 
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
 
 
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
 
 
62
 
}
63
 
 
64
 
1;
 
2
package Module::Install::Win32;
 
3
 
 
4
use strict;
 
5
use Module::Install::Base;
 
6
 
 
7
use vars qw{$VERSION @ISA $ISCORE};
 
8
BEGIN {
 
9
        $VERSION = '0.76';
 
10
        @ISA     = qw{Module::Install::Base};
 
11
        $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
 
 
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
 
 
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
 
 
62
}
 
63
 
 
64
1;