The CHECKOP macro was not invoked on some newly created ops

[p5sagit/p5-mst-13.2.git] / installperl

diff --git a/installperl b/installperl
index 17d1b39..da86e09 100755 (executable)
--- 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);