From 9cce3ecddf3526ad5ec31ebe88a04ef72c25237e Mon Sep 17 00:00:00 2001 From: Mike Heins Date: Fri, 25 Oct 2002 02:06:29 +0000 Subject: [PATCH] * When it is an update, don't send out "you are now ready to run makecat" message which confuses people. --- Makefile.PL | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/Makefile.PL b/Makefile.PL index cdba27e5d..2bb901c42 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -445,6 +445,7 @@ sub initialize { my @re_dir = qw(); my @re_copy = qw(); + my $upgrade; if($MV::Default{final}) { $^W = 0; for(glob "_*") { @@ -510,6 +511,7 @@ sub initialize { File::Copy::copy($from, $to); } for (@files) { + $upgrade ||= -f "$realdir/$_"; install_file('.', $realdir, $_); } chdir '..'; @@ -656,12 +658,24 @@ EOF } system $^X, 'src/cpan_local_install', '-c'; } + if($upgrade) { + print <