[interchange-cvs] interchange - heins modified Makefile.PL

interchange-core@icdevgroup.org interchange-core@icdevgroup.org
Thu Oct 24 22:07:00 2002


User:      heins
Date:      2002-10-25 02:06:29 GMT
Modified:  .        Makefile.PL
Log:
* When it is an update, don't send out "you are now ready to run makecat"
  message which confuses people.

Revision  Changes    Path
2.29      +14 -0     interchange/Makefile.PL


rev 2.29, prev_rev 2.28
Index: Makefile.PL
===================================================================
RCS file: /var/cvs/interchange/Makefile.PL,v
retrieving revision 2.28
retrieving revision 2.29
diff -u -r2.28 -r2.29
--- Makefile.PL	15 Aug 2002 20:18:48 -0000	2.28
+++ Makefile.PL	25 Oct 2002 02:06:29 -0000	2.29
@@ -445,6 +445,7 @@
 	my @re_dir  = qw();
 	my @re_copy = qw();
 
+	my $upgrade;
 	if($MV::Default{final}) {
 		$^W = 0;
 		for(glob "_*") {
@@ -510,6 +511,7 @@
 			File::Copy::copy($from, $to);
 		}
 		for (@files) {
+			$upgrade ||= -f "$realdir/$_";
 			install_file('.', $realdir, $_);
 		}
 		chdir '..';
@@ -656,12 +658,24 @@
 			}
 			system $^X, 'src/cpan_local_install', '-c';
 		}
+		if($upgrade) {
+		print <<EOF;
+
+Since this was an update, you are now ready to restart and ensure
+your catalogs run as expected. You do NOT need to re-run makecat,
+though you can always do that to make a new catalog. Never run
+makecat on an existing catalog.
+
+EOF
+		}
+		else {
 		print <<EOF;
 
 You are now ready to cd to $realdir and run 'bin/makecat'
 to set up your first catalog.
 
 EOF
+		}
 		exit;
 
 	}