From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Mon, 19 Jan 2009 15:49:09 +0000 (+0100)
Subject: SetUID scripts are deprecated for 5.12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0161444183ad5a13698ebb7b59caced42127fea4;p=p5sagit%2Fp5-mst-13.2.git

SetUID scripts are deprecated for 5.12

Subject: disabling suidperl in Configure
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 18 Jan 2009 11:51:39 +0000
Message-ID: <20090118115139.GX2919@plum.flirble.org>
---

diff --git a/Configure b/Configure
index ed9f4df..71f997f 100755
--- a/Configure
+++ b/Configure
@@ -25,7 +25,7 @@
 
 # $Id: Head.U 6 2006-08-25 22:21:46Z rmanfredi $
 #
-# Generated on Thu Dec 25 12:54:36 CET 2008 [metaconfig 3.5 PL0]
+# Generated on Mon Jan 19 16:46:57 CET 2009 [metaconfig 3.5 PL0]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -6366,6 +6366,7 @@ eval $setvar
 $rm -f reflect flect
 
 : now see if they want to do setuid emulation
+if $test $patchlevel -lt 11; then
 echo " "
 val="$undef"
 case "$d_suidsafe" in
@@ -6397,6 +6398,20 @@ EOM
 esac
 set d_dosuid
 eval $setvar
+else
+    case "$d_dosuid" in
+	"$define")
+	cat >&4 <<EOH
+
+SUID emulation has been removed for 5.12
+Please re-run Configure without -Dd_dosuid
+
+EOH
+	exit 1;
+	;;
+    esac
+    d_dosuid=undef
+fi
 
 : Find perl5.005 or later.
 echo "Looking for a previously installed perl5.005 or later... "