Change 19972: [PATCH] installperl -n

[Jarkko Hietaniemi]

Change 19972 by [EMAIL PROTECTED] on 2003/07/03 21:33:10

        Subject: [PATCH] installperl -n
        From: Slaven Rezic <[EMAIL PROTECTED]>
        Date: Fri, 4 Jul 2003 00:41:36 +0200 (CEST)
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/installperl#107 edit

Differences ...

==== //depot/perl/installperl#107 (xtext) ====
Index: perl/installperl
--- perl/installperl#106~19651~ Sat May 31 11:48:59 2003
+++ perl/installperl    Thu Jul  3 14:33:10 2003
@@ -213,7 +213,7 @@
 
 # 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);
End of Patch.