From: Slaven Rezic <slaven@rezic.de>
Date: Fri, 4 Jul 2003 00:41:36 +0000 (+0200)
Subject: installperl -n
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=876c2cbbc9e925f792f6d5946762821fc3773706;p=p5sagit%2Fp5-mst-13.2.git

installperl -n
Message-Id: <200307032241.h63Mfaka041281@vran.herceg.de>

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

diff --git a/installperl b/installperl
index 17d1b39..da86e09 100755
--- a/installperl
+++ b/installperl
@@ -213,7 +213,7 @@ if ($Is_VMS) {  # Hang in there until File::Spec hits the big time
 
 # Do some quick sanity checks.
 
-if ($d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
+if (!$nonono && $d_dosuid && $>) { die "You must run as root to install suidperl\n"; }
 
    $installbin		|| die "No installbin directory in config.sh\n";
 -d $installbin		|| mkpath($installbin, $verbose, 0777);