|
Line
Link Here
|
| 0 |
-- lib/Gentoo/CPAN.pm.orig 2007-04-25 03:06:19.000000000 +0300 |
0 |
++ lib/Gentoo/CPAN.pm 2008-07-30 16:24:34.000000000 +0300 |
|
Lines 150-155
sub unpackModule {
Link Here
|
| 150 |
$module_name =~ s{-}{::}xmsg; |
150 |
$module_name =~ s{-}{::}xmsg; |
| 151 |
} # Assume they gave us module-name instead of module::name |
151 |
} # Assume they gave us module-name instead of module::name |
| 152 |
|
152 |
|
|
|
153 |
return ($self) if ($self->{'cpan'}{ lc($module_name) }{'extracted'} and $self->{'cpan'}{ lc($module_name) }{'extracted'} == 1); |
| 154 |
|
| 153 |
my $obj = CPAN::Shell->expandany($module_name); |
155 |
my $obj = CPAN::Shell->expandany($module_name); |
| 154 |
unless ( ( ref $obj eq "CPAN::Module" ) |
156 |
unless ( ( ref $obj eq "CPAN::Module" ) |
| 155 |
|| ( ref $obj eq "CPAN::Bundle" ) |
157 |
|| ( ref $obj eq "CPAN::Bundle" ) |
|
Lines 224-229
sub unpackModule {
Link Here
|
| 224 |
$self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} = "0"; |
226 |
$self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} = "0"; |
| 225 |
} |
227 |
} |
| 226 |
} |
228 |
} |
|
|
229 |
$self->{'cpan'}{ lc($module_name) }{'extracted'} = 1; |
| 227 |
return ($self); |
230 |
return ($self); |
| 228 |
} |
231 |
} |
| 229 |
|
232 |
|
|
Lines 553-559
sub makeCPANstub {
Link Here
|
| 553 |
'tar' => q[$tar_prog], |
556 |
'tar' => q[$tar_prog], |
| 554 |
'term_is_latin' => q[1], |
557 |
'term_is_latin' => q[1], |
| 555 |
'unzip' => q[$unzip_prog], |
558 |
'unzip' => q[$unzip_prog], |
| 556 |
'urllist' => [qw["http://search.cpan.org/CPAN" "http://www.cpan.org/pub/CPAN" ],], |
559 |
'urllist' => [qw[ http://search.cpan.org/CPAN http://www.cpan.org/pub/CPAN ],], |
| 557 |
'wget' => q[$wget_prog], |
560 |
'wget' => q[$wget_prog], |
| 558 |
}; |
561 |
}; |
| 559 |
1; |
562 |
1; |
