Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
best-practical
rt-extension-sla
Commits
beeb2300
Commit
beeb2300
authored
May 14, 2009
by
Ruslan Zakirov
Browse files
update M::I
parent
f923d095
Changes
12
Hide whitespace changes
Inline
Side-by-side
META.yml
View file @
beeb2300
...
...
@@ -8,7 +8,7 @@ build_requires:
configure_requires
:
ExtUtils::MakeMaker:
6.42
distribution_type
:
module
generated_by
:
'
Module::Install
version
0.8
7
'
generated_by
:
'
Module::Install
version
0.8
8
'
license
:
gpl2
meta-spec
:
url
:
http://module-build.sourceforge.net/META-spec-v1.4.html
...
...
inc/Module/AutoInstall.pm
View file @
beeb2300
...
...
@@ -175,15 +175,24 @@ sub import {
}
# XXX: check for conflicts and uninstalls(!) them.
if
(
defined
(
my
$cur
=
_version_check
(
_load
(
$mod
),
$arg
||=
0
)
)
)
my
$cur
=
_load
(
$mod
);
if
(
_version_cmp
(
$cur
,
$arg
)
>=
0
)
{
print
"
loaded. (
$cur
"
.
(
$arg
?
"
>=
$arg
"
:
''
)
.
"
)
\n
";
push
@Existing
,
$mod
=>
$arg
;
$DisabledTests
{
$_
}
=
1
for
map
{
glob
(
$_
)
}
@skiptests
;
}
else
{
print
"
missing.
"
.
(
$arg
?
"
(would need
$arg
)
"
:
''
)
.
"
\n
";
if
(
not
defined
$cur
)
# indeed missing
{
print
"
missing.
"
.
(
$arg
?
"
(would need
$arg
)
"
:
''
)
.
"
\n
";
}
else
{
# no need to check $arg as _version_cmp ($cur, undef) would satisfy >= above
print
"
too old. (
$cur
<
$arg
)
\n
";
}
push
@required
,
$mod
=>
$arg
;
}
}
...
...
@@ -268,8 +277,11 @@ sub _check_lock {
require
CPAN
;
if
(
$
CPAN::
VERSION
>
'
1.89
'
&&
$cpan_env
)
{
return
_running_under
('
CPAN
');
if
(
$
CPAN::
VERSION
>
'
1.89
')
{
if
(
$cpan_env
)
{
return
_running_under
('
CPAN
');
}
return
;
# CPAN.pm new enough, don't need to check further
}
# last ditch attempt, this -will- configure CPAN, very sorry
...
...
@@ -310,7 +322,7 @@ sub install {
while
(
my
(
$pkg
,
$ver
)
=
splice
(
@
_
,
0
,
2
)
)
{
# grep out those already installed
if
(
defined
(
_version_c
heck
(
_load
(
$pkg
),
$ver
)
)
)
{
if
(
_version_c
mp
(
_load
(
$pkg
),
$ver
)
>=
0
)
{
push
@installed
,
$pkg
;
}
else
{
...
...
@@ -349,7 +361,7 @@ sub install {
# see if we have successfully installed them
while
(
my
(
$pkg
,
$ver
)
=
splice
(
@modules
,
0
,
2
)
)
{
if
(
defined
(
_version_c
heck
(
_load
(
$pkg
),
$ver
)
)
)
{
if
(
_version_c
mp
(
_load
(
$pkg
),
$ver
)
>=
0
)
{
push
@installed
,
$pkg
;
}
elsif
(
$args
{
do_once
}
and
open
(
FAILED
,
'
>> .#autoinstall.failed
'
)
)
{
...
...
@@ -404,7 +416,7 @@ sub _install_cpanplus {
my
$success
;
my
$obj
=
$modtree
->
{
$pkg
};
if
(
$obj
and
defined
(
_version_c
heck
(
$obj
->
{
version
},
$ver
)
)
)
{
if
(
$obj
and
_version_c
mp
(
$obj
->
{
version
},
$ver
)
>=
0
)
{
my
$pathname
=
$pkg
;
$pathname
=~
s/::/\\W/
;
...
...
@@ -497,7 +509,7 @@ sub _install_cpan {
my
$obj
=
CPAN::
Shell
->
expand
(
Module
=>
$pkg
);
my
$success
=
0
;
if
(
$obj
and
defined
(
_version_c
heck
(
$obj
->
cpan_version
,
$ver
)
)
)
{
if
(
$obj
and
_version_c
mp
(
$obj
->
cpan_version
,
$ver
)
>=
0
)
{
my
$pathname
=
$pkg
;
$pathname
=~
s/::/\\W/
;
...
...
@@ -561,7 +573,7 @@ sub _update_to {
my
$ver
=
shift
;
return
if
defined
(
_version_c
heck
(
_load
(
$class
),
$ver
)
)
;
# no need to upgrade
if
_version_c
mp
(
_load
(
$class
),
$ver
)
>=
0
;
# no need to upgrade
if
(
_prompt
(
"
==> A newer version of
$class
(
$ver
) is required. Install?
",
...
...
@@ -670,9 +682,11 @@ sub _load_cpan {
}
# compare two versions, either use Sort::Versions or plain comparison
sub
_version_check
{
# return values same as <=>
sub
_version_cmp
{
my
(
$cur
,
$min
)
=
@_
;
return
unless
defined
$cur
;
return
-
1
unless
defined
$cur
;
# if 0 keep comparing
return
1
unless
$min
;
$cur
=~
s/\s+$//
;
...
...
@@ -683,16 +697,13 @@ sub _version_check {
)
{
# use version.pm if it is installed.
return
(
(
version
->
new
(
$cur
)
>=
version
->
new
(
$min
)
)
?
$cur
:
undef
);
return
version
->
new
(
$cur
)
<=>
version
->
new
(
$min
);
}
elsif
(
$
Sort::Versions::
VERSION
or
defined
(
_load
('
Sort::Versions
')
)
)
{
# use Sort::Versions as the sorting algorithm for a.b.c versions
return
(
(
Sort::Versions::
versioncmp
(
$cur
,
$min
)
!=
-
1
)
?
$cur
:
undef
);
return
Sort::Versions::
versioncmp
(
$cur
,
$min
);
}
warn
"
Cannot reliably compare non-decimal formatted versions.
\n
"
...
...
@@ -701,7 +712,7 @@ sub _version_check {
# plain comparison
local
$^W
=
0
;
# shuts off 'not numeric' bugs
return
(
$cur
>
=
$min
?
$cur
:
undef
)
;
return
$cur
<=
>
$min
;
}
# nothing; this usage is deprecated.
...
...
@@ -791,4 +802,4 @@ END_MAKE
__END__
#line 10
4
5
#line 105
6
inc/Module/Install.pm
View file @
beeb2300
...
...
@@ -28,7 +28,7 @@ BEGIN {
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
# Storage for the pseudo-singleton
$MAIN
=
undef
;
...
...
@@ -353,7 +353,7 @@ sub _read {
if
(
$]
>=
5.006
)
{
open
(
FH
,
'
<
',
$_
[
0
]
)
or
die
"
open(
$_
[0]): $!
";
}
else
{
open
(
FH
,
"
<
$_
[0]
"
)
or
die
"
open(
$_
[0]): $!
";
open
(
FH
,
"
<
$_
[0]
"
)
or
die
"
open(
$_
[0]): $!
";
}
my
$string
=
do
{
local
$/
;
<
FH
>
};
close
FH
or
die
"
close(
$_
[0]): $!
";
...
...
@@ -384,7 +384,7 @@ sub _write {
if
(
$]
>=
5.006
)
{
open
(
FH
,
'
>
',
$_
[
0
]
)
or
die
"
open(
$_
[0]): $!
";
}
else
{
open
(
FH
,
"
>
$_
[0]
"
)
or
die
"
open(
$_
[0]): $!
";
open
(
FH
,
"
>
$_
[0]
"
)
or
die
"
open(
$_
[0]): $!
";
}
foreach
(
1
..
$
#_ ) {
print
FH
$_
[
$_
]
or
die
"
print(
$_
[0]): $!
";
...
...
inc/Module/Install/AutoInstall.pm
View file @
beeb2300
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base;
use
vars
qw{$VERSION $ISCORE @ISA}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
$ISCORE
=
1
;
@ISA
=
qw{Module::Install::Base}
;
}
...
...
inc/Module/Install/Base.pm
View file @
beeb2300
...
...
@@ -4,7 +4,7 @@ package Module::Install::Base;
use
strict
'
vars
';
use
vars
qw{$VERSION}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
}
# Suspend handler for "redefined" warnings
...
...
inc/Module/Install/Can.pm
View file @
beeb2300
...
...
@@ -9,7 +9,7 @@ use ExtUtils::MakeMaker ();
use
vars
qw{$VERSION $ISCORE @ISA}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
$ISCORE
=
1
;
@ISA
=
qw{Module::Install::Base}
;
}
...
...
inc/Module/Install/Fetch.pm
View file @
beeb2300
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base;
use
vars
qw{$VERSION $ISCORE @ISA}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
$ISCORE
=
1
;
@ISA
=
qw{Module::Install::Base}
;
}
...
...
inc/Module/Install/Include.pm
View file @
beeb2300
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base;
use
vars
qw{$VERSION $ISCORE @ISA}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
$ISCORE
=
1
;
@ISA
=
qw{Module::Install::Base}
;
}
...
...
inc/Module/Install/Makefile.pm
View file @
beeb2300
...
...
@@ -7,7 +7,7 @@ use ExtUtils::MakeMaker ();
use
vars
qw{$VERSION
$ISCORE
@ISA};
BEGIN
{
$VERSION
=
'0.8
7
'
;
$VERSION
=
'0.8
8
'
;
$ISCORE
=
1
;
@ISA = qw{Module
::
Install::Base};
}
...
...
inc/Module/Install/Metadata.pm
View file @
beeb2300
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base;
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
@ISA
=
qw{Module::Install::Base}
;
$ISCORE
=
1
;
}
...
...
@@ -511,7 +511,7 @@ sub requires_from {
# Also, convert double-part versions (eg, 5.8)
sub
_perl_version
{
my
$v
=
$_
[
-
1
];
$v
=~
s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/
e
;
$v
=~
s/^([1-9])\.([1-9]\d?\d?)$/sprintf("%d.%03d",$1,$2)/
e
;
$v
=~
s/^([1-9])\.([1-9]\d?\d?)\.(0|[1-9]\d?\d?)$/sprintf("%d.%03d%03d",$1,$2,$3 || 0)/
e
;
$v
=~
s/(\.\d\d\d)000$/$1/
;
$v
=~
s/_.+$//
;
...
...
@@ -534,7 +534,7 @@ sub WriteMyMeta {
sub
write_mymeta
{
my
$self
=
shift
;
# If there's no existing META.yml there is nothing we can do
return
unless
-
f
'
META.yml
';
...
...
@@ -574,7 +574,7 @@ sub write_mymeta {
# Save as the MYMETA.yml file
print
"
Writing MYMETA.yml
\n
";
YAML::Tiny::
DumpFile
('
MYMETA.yml
',
$meta
);
YAML::Tiny::
DumpFile
('
MYMETA.yml
',
$meta
);
}
1
;
inc/Module/Install/Win32.pm
View file @
beeb2300
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base;
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
@ISA
=
qw{Module::Install::Base}
;
$ISCORE
=
1
;
}
...
...
inc/Module/Install/WriteAll.pm
View file @
beeb2300
...
...
@@ -6,7 +6,7 @@ use Module::Install::Base;
use
vars
qw{$VERSION @ISA $ISCORE}
;
BEGIN
{
$VERSION
=
'
0.8
7
';
$VERSION
=
'
0.8
8
';
@ISA
=
qw{Module::Install::Base}
;
$ISCORE
=
1
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment