|
Lines 147-158
Link Here
|
| 147 |
my $module_name = shift; |
147 |
my $module_name = shift; |
| 148 |
unless (defined($module_name)) { return } |
148 |
unless (defined($module_name)) { return } |
| 149 |
if ( $module_name !~ m|::| ) { |
149 |
if ( $module_name !~ m|::| ) { |
| 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'} == 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" ) |
| 156 |
|| ( ref $obj eq "CPAN::Distribution" ) ) |
158 |
|| ( ref $obj eq "CPAN::Distribution" ) ) |
| 157 |
{ |
159 |
{ |
| 158 |
warn("Don't know what '$module_name' is\n"); |
160 |
warn("Don't know what '$module_name' is\n"); |
|
Lines 221-232
Link Here
|
| 221 |
($self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} eq "undef" ) |
223 |
($self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} eq "undef" ) |
| 222 |
) |
224 |
) |
| 223 |
{ |
225 |
{ |
| 224 |
$self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} = "0"; |
226 |
$self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} = "0"; |
| 225 |
} |
227 |
} |
| 226 |
} |
228 |
} |
|
|
229 |
|
| 230 |
$self->{'cpan'}{ lc($module_name) }{'extracted'} = 1; |
| 227 |
return ($self); |
231 |
return ($self); |
| 228 |
} |
232 |
} |
| 229 |
|
233 |
|
| 230 |
sub UnBundle { |
234 |
sub UnBundle { |
| 231 |
my $self = shift; |
235 |
my $self = shift; |
| 232 |
my ($workdir) = shift; |
236 |
my ($workdir) = shift; |
