diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 18:40:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 18:40:51 +0000 |
| commit | 845401c15a5bd7748179289c1dad79500f842119 (patch) | |
| tree | 2ad7a9df87c4e4dc405aeeba16b6c9f060c8de36 /lib/CPAN.pm | |
| parent | 6be89cf94680405f8f1461b8bee33f362ab7e905 (diff) | |
| download | perl-845401c15a5bd7748179289c1dad79500f842119.tar.gz | |
Don't recommend to upgrade the base.pm in the core with
the base.pm from Class::Fields. They are not the same.
p4raw-id: //depot/perl@20077
Diffstat (limited to 'lib/CPAN.pm')
| -rw-r--r-- | lib/CPAN.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/CPAN.pm b/lib/CPAN.pm index 5d24a18d7f..558d93b486 100644 --- a/lib/CPAN.pm +++ b/lib/CPAN.pm @@ -1668,6 +1668,11 @@ sub _u_r_common { for $module (@expand) { my $file = $module->cpan_file; next unless defined $file; # ?? + # Don't offer to upgrade the core base.pm with the base.pm of + # the Class::Fields. Don't autobundle the core base.pm, either. + # This is a horrible hack but hopefully cases like this are very, + # very rare indeed. + next if $module->id eq 'base' && $file =~ m{/Class-Fields-}; my($latest) = $module->cpan_version; my($inst_file) = $module->inst_file; my($have); |