--- perl5.005_56/installperl~	Mon Feb 15 15:23:47 1999
+++ perl5.005_56/installperl	Tue Apr 20 19:16:44 1999
@@ -117,8 +117,6 @@
 
 # Do some quick sanity checks.
 
-if ($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, 1, 0777);
 -d $installbin		|| $nonono || die "$installbin is not a directory\n";
@@ -182,7 +180,7 @@
 safe_unlink("$installbin/s$perl$ver$exe_ext");
 if ($d_dosuid) {
     copy("suidperl$exe_ext", "$installbin/s$perl$ver$exe_ext");
-    chmod(04711, "$installbin/s$perl$ver$exe_ext");
+    chmod(0755, "$installbin/s$perl$ver$exe_ext");
 }
 
 # Install library files.