/[gentoo-perl]/g-cpan/trunk/lib/Gentoo/CPAN.pm
Gentoo

Diff of /g-cpan/trunk/lib/Gentoo/CPAN.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 74 Revision 75
12use Cwd qw(getcwd abs_path cwd); 12use Cwd qw(getcwd abs_path cwd);
13use File::Basename; 13use File::Basename;
14use Shell qw(perl); 14use Shell qw(perl);
15 15
16memoize('transformCPANname'); 16memoize('transformCPANname');
17memoize('transformCPANVersion');
17memoize('FindDeps'); 18memoize('FindDeps');
18 19
19# These libraries were influenced and largely written by 20# These libraries were influenced and largely written by
20# Christian Hartmann <ian@gentoo.org> originally. All of the good 21# Christian Hartmann <ian@gentoo.org> originally. All of the good
21# parts are ian's - the rest is mcummings messing around. 22# parts are ian's - the rest is mcummings messing around.
22 23
23require Exporter; 24require Exporter;
24 25
25our @ISA = qw(Exporter Gentoo ); 26our @ISA = qw(Exporter Gentoo );
26 27
27our @EXPORT = qw( getCPANInfo makeCPANstub unpackModule transformCPANname 28our @EXPORT = qw( getCPANInfo makeCPANstub unpackModule transformCPANVersion transformCPANname
28); 29);
29 30
30our $VERSION = '0.01'; 31our $VERSION = '0.01';
31 32
32##### CPAN CONFIG ##### 33##### CPAN CONFIG #####
161 162
162 # Final measure - if somehow we got an undef along the way, set to 0 163 # Final measure - if somehow we got an undef along the way, set to 0
163 foreach my $dep ( keys %{ $self->{'cpan'}{ lc($module_name) }{'depends'} } ) 164 foreach my $dep ( keys %{ $self->{'cpan'}{ lc($module_name) }{'depends'} } )
164 { 165 {
165 unless ( 166 unless (
166 defined( $self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} ) ) 167 defined( $self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} ) ||
168 ($self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} eq "undef" )
169 )
167 { 170 {
168 $self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} = "0"; 171 $self->{'cpan'}{ lc($module_name) }{'depends'}{$dep} = "0";
169 } 172 }
170 } 173 }
171 return ($self); 174 return ($self);

Legend:
Removed from v.74  
changed lines
  Added in v.75

  ViewVC Help
Powered by ViewVC 1.1.20