From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 8 Jul 2003 18:40:51 +0000 (+0000)
Subject: Don't recommend to upgrade the base.pm in the core with
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=845401c15a5bd7748179289c1dad79500f842119;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 5d24a18..558d93b 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);