--- perl-5.8.1/installperl.orig	Fri Aug 22 12:26:11 2003
+++ perl-5.8.1/installperl	Fri Aug 22 12:26:28 2003
@@ -226,7 +226,7 @@
 
 # Do some quick sanity checks.
 
-if (!$nonono && $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);
@@ -361,7 +361,7 @@
 safe_unlink("$installbin/s$perl_verbase$ver$exe_ext");
 if ($d_dosuid) {
     copy("suidperl$exe_ext", "$installbin/s$perl_verbase$ver$exe_ext");
-    chmod(04711, "$installbin/s$perl_verbase$ver$exe_ext");
+    chmod(0755, "$installbin/s$perl_verbase$ver$exe_ext");
 }
 
 # Install library files.