projects
/
libwww-opensearch-perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 0.17
[libwww-opensearch-perl.git]
/
inc
/
Module
/
Install
/
Win32.pm
diff --git
a/inc/Module/Install/Win32.pm
b/inc/Module/Install/Win32.pm
index
42cb653
..
eeaa3fe
100644
(file)
--- a/
inc/Module/Install/Win32.pm
+++ b/
inc/Module/Install/Win32.pm
@@
-2,13
+2,13
@@
package Module::Install::Win32;
use strict;
package Module::Install::Win32;
use strict;
-use Module::Install::Base;
+use Module::Install::Base
()
;
-use vars qw{$VERSION
$ISCORE @ISA
};
+use vars qw{$VERSION
@ISA $ISCORE
};
BEGIN {
BEGIN {
- $VERSION = '0.65';
+ $VERSION = '1.06';
+ @ISA = 'Module::Install::Base';
$ISCORE = 1;
$ISCORE = 1;
- @ISA = qw{Module::Install::Base};
}
# determine if the user needs nmake, and download it if needed
}
# determine if the user needs nmake, and download it if needed
@@
-16,7
+16,7
@@
sub check_nmake {
my $self = shift;
$self->load('can_run');
$self->load('get_file');
my $self = shift;
$self->load('can_run');
$self->load('get_file');
-
+
require Config;
return unless (
$^O eq 'MSWin32' and
require Config;
return unless (
$^O eq 'MSWin32' and
@@
-38,8
+38,7
@@
sub check_nmake {
remove => 1,
);
remove => 1,
);
- if (!$rv) {
- die <<'END_MESSAGE';
+ die <<'END_MESSAGE' unless $rv;
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
@@
-59,7
+58,7
@@
You may then resume the installation process described in README.
-------------------------------------------------------------------------------
END_MESSAGE
-------------------------------------------------------------------------------
END_MESSAGE
- }
+
}
1;
}
1;