From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 15 Aug 2000 03:08:02 +0000 (+0000)
Subject: Make the user to give up his firstborn, err, to knowingly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0107c034dcb51641fd526deceb7123a8327e4f73;p=p5sagit%2Fp5-mst-13.2.git

Make the user to give up his firstborn, err, to knowingly
verify installing an unstable developer release.  Also bump
the release to 5.7.0, but leave a patch tag in the local
patches saying that this is not yet the real thing.

p4raw-id: //depot/perl@6628
---

diff --git a/Configure b/Configure
index dbeaef3..e32c739 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Sat Aug  5 00:21:09 EET DST 2000 [metaconfig 3.0 PL70]
+# Generated on Tue Aug 15 05:57:14 EET DST 2000 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.com)
 
 cat >/tmp/c1$$ <<EOF
@@ -1758,6 +1758,40 @@ persist across sessions for $package.
 You may safely delete it if you wish.
 EOF
 
+xpatchlevel=`awk '/define[ 	]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
+case "$useunstabledeveloperreleases" in
+$define|true|[yY]*) ;;
+*) case "$xpatchlevel" in
+   *[13579])
+	cat >&4 <<EOH
+*** WHOA THERE!!! ***
+
+    This is an UNSTABLE DEVELOPMENT release.
+    (The patchlevel, $xpatchlevel, is odd--as opposed to even,
+     and that signifies a development release.  If you want a
+     maintenance release, you want an even-numbered release.)
+
+    Do ***NOT*** install this into production use.
+    Data corruption and crashes are possible.
+
+    It is most seriously suggested that you do not continue any further
+    unless you want to help in developing and debugging Perl.
+
+EOH
+	rp='Do you really want to continue?'
+	dflt='n'
+	. ./myread
+	case "$ans" in
+	[yY]) echo >&4 "Okay, continuing." ;;
+	*) echo >&4 "Okay, bye."
+	   exit 1
+	   ;;
+	esac
+	;;
+    esac
+    ;;
+esac
+
 : general instructions
 needman=true
 firsttime=true
diff --git a/patchlevel.h b/patchlevel.h
index 645620d..f9e88fe 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -4,7 +4,7 @@
  * exactly on the third column */
 
 #define PERL_REVISION	5		/* age */
-#define PERL_VERSION	6		/* epoch */
+#define PERL_VERSION	7		/* epoch */
 #define PERL_SUBVERSION	0		/* generation */
 
 /* The following numbers describe the earliest compatible version of
@@ -71,6 +71,7 @@
 static	char	*local_patches[] = {
         NULL
 	,"SUIDMAIL - fixes for suidperl security"
+	,"NOTREALLY570"
 	,NULL
 };