diff options
| author | Chip Salzenberg <chip@pobox.com> | 2003-07-10 09:13:20 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-10 17:33:53 +0000 |
| commit | b35112e751727d4207068fd54bf0c9d77ad0ba97 (patch) | |
| tree | a7c3178c72e3442ae7dd539f8e3b913dbd62c938 /toke.c | |
| parent | 669f94828c50674b20ed995418707226081e2671 (diff) | |
| download | perl-b35112e751727d4207068fd54bf0c9d77ad0ba97.tar.gz | |
Restore SIGFPE on exec()
Message-ID: <20030710171319.GA21588@perlsupport.com>
p4raw-id: //depot/perl@20117
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2704,7 +2704,9 @@ Perl_yylex(pTHX) else newargv = PL_origargv; newargv[0] = ipath; + PERL_FPU_PRE_EXEC PerlProc_execv(ipath, EXEC_ARGV_CAST(newargv)); + PERL_FPU_POST_EXEC Perl_croak(aTHX_ "Can't exec %s", ipath); } #endif |