diff options
author | David Mitchell <davem@iabyn.com> | 2009-04-22 17:53:57 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-04-22 17:53:57 +0100 |
commit | 9a21eb23b22a8df18dac7538203ead869e675c4b (patch) | |
tree | ed691e1e742712803a17da056366ee168dfc30aa /perl.c | |
parent | 3c5bd47f69309074b9424a6b6ae879b9adc22789 (diff) | |
download | perl-9a21eb23b22a8df18dac7538203ead869e675c4b.tar.gz |
fix maint-specific -Dd_dosuid build breakage (Nicholas)
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 8 |
1 files changed, 2 insertions, 6 deletions
@@ -4237,9 +4237,7 @@ FIX YOUR KERNEL, OR PUT A C WRAPPER AROUND THIS SCRIPT!\n"); fcntl(PerlIO_fileno(rsfp),F_SETFD,0); /* ensure no close-on-exec */ # endif PERL_FPU_PRE_EXEC - PerlProc_execv(Perl_form(aTHX_ "%s/sperl"PERL_FS_VER_FMT, BIN_EXP, - (int)PERL_REVISION, (int)PERL_VERSION, - (int)PERL_SUBVERSION), PL_origargv); + PerlProc_execv(BIN_EXP "/sperl" PERL_FS_VERSION, PL_origargv); PERL_FPU_POST_EXEC # endif /* IAMSUID */ Perl_croak(aTHX_ "Can't do setuid (cannot exec sperl)\n"); @@ -4360,9 +4358,7 @@ FIX YOUR KERNEL, OR PUT A C WRAPPER AROUND THIS SCRIPT!\n"); fcntl(PerlIO_fileno(rsfp),F_SETFD,0); /* ensure no close-on-exec */ # endif PERL_FPU_PRE_EXEC - PerlProc_execv(Perl_form(aTHX_ "%s/perl"PERL_FS_VER_FMT, BIN_EXP, - (int)PERL_REVISION, (int)PERL_VERSION, - (int)PERL_SUBVERSION), PL_origargv);/* try again */ + PerlProc_execv(BIN_EXP "/perl" PERL_FS_VERSION, PL_origargv);/* try again */ PERL_FPU_POST_EXEC Perl_croak(aTHX_ "Can't do setuid (suidperl cannot exec perl)\n"); # endif /* IAMSUID */ |