# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
package CPAN;
-$VERSION = '1.71';
-# $Id: CPAN.pm,v 1.405 2003/07/04 08:06:11 k Exp $
+$VERSION = '1.76';
+# $Id: CPAN.pm,v 1.412 2003/07/31 14:53:04 k Exp $
# only used during development:
$Revision = "";
-# $Revision = "[".substr(q$Revision: 1.405 $, 10)."]";
+# $Revision = "[".substr(q$Revision: 1.412 $, 10)."]";
use Carp ();
use Config ();
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);
}
$self->{'build_dir'} = $packagedir;
- $self->safe_chdir(File::Spec->updir);
+ $self->safe_chdir($builddir);
File::Path::rmtree("tmp");
my($mpl) = File::Spec->catfile($packagedir,"Makefile.PL");