diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-01-23 22:01:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-01-23 22:42:21 +0000 |
| commit | cc69b689ee7c274593c3c386a61a06ecb909431c (patch) | |
| tree | 33b8c1eb3e3a4535244ff2489dc2bb37e865915e /installperl | |
| parent | 42f7d22ff05ce2eb366c8ebf6b7142495d0f9e1f (diff) | |
| download | perl-cc69b689ee7c274593c3c386a61a06ecb909431c.tar.gz | |
suidperl goes.
Diffstat (limited to 'installperl')
| -rwxr-xr-x | installperl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/installperl b/installperl index d8d36be7d6..93c0c9fa67 100755 --- a/installperl +++ b/installperl @@ -217,7 +217,6 @@ if ($nwinstall) { $installsitelib = $Config{installnwlib}; } -my $d_dosuid = $Config{d_dosuid}; my $binexp = $Config{binexp}; if ($Is_VMS) { # Hang in there until File::Spec hits the big time @@ -230,8 +229,6 @@ if ($Is_VMS) { # Hang in there until File::Spec hits the big time # Do some quick sanity checks. -if (!$opts{notify} && $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, $opts{verbose}, 0777); -d $installbin || $opts{notify} || die "$installbin is not a directory\n"; @@ -248,7 +245,6 @@ else { -x $dbg . 'perl' . $exe_ext || die "${dbg}perl$exe_ext isn't executable!\n"; } } --x 'suidperl' . $exe_ext|| die "suidperl isn't executable!\n" if $d_dosuid; -f 't/rantests' || $Is_W32 || warn "WARNING: You've never run 'make test' or", @@ -336,12 +332,6 @@ else { copy("perl.exe", "$installbin/$perl.exe"); } -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"); -} - # Install library files. my ($do_installarchlib, $do_installprivlib) = (0, 0); @@ -437,9 +427,6 @@ if (! $versiononly && ! samepath($installbin, '.') && ($^O ne 'dos') && ! $Is_VM link("$installbin/$perl_verbase$ver$exe_ext", "$installbin/$perl$exe_ext"); } - link("$installbin/$perl_verbase$ver$exe_ext", - "$installbin/suid$perl$exe_ext") - if $d_dosuid; } # For development purposes it can be very useful to have multiple perls |