diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-20 16:07:38 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-20 16:07:38 +0000 |
| commit | 14dd3ad8c9bf82cf09798a22cc89a9862dfd6d1a (patch) | |
| tree | e4a7db15d6f3f866de5e2a5881c5b1ec10c3f883 /scope.c | |
| parent | c9fcc6c44229e7c36dee08e5d883d12284a44f17 (diff) | |
| download | perl-14dd3ad8c9bf82cf09798a22cc89a9862dfd6d1a.tar.gz | |
make change#3386 a build-time option (avoids problems due to
perl_run() longjmping out)
p4raw-link: @3386 on //depot/perl: 312caa8e97f1c7ee342a9895c2f0e749625b4929
p4raw-id: //depot/perl@5162
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -16,6 +16,7 @@ #define PERL_IN_SCOPE_C #include "perl.h" +#if defined(PERL_FLEXIBLE_EXCEPTIONS) void * Perl_default_protect(pTHX_ volatile JMPENV *pcur_env, int *excpt, protect_body_t body, ...) @@ -36,8 +37,6 @@ Perl_vdefault_protect(pTHX_ volatile JMPENV *pcur_env, int *excpt, int ex; void *ret; - DEBUG_l(Perl_deb(aTHX_ "Setting up local jumplevel %p, was %p\n", - pcur_env, PL_top_env)); JMPENV_PUSH(ex); if (ex) ret = NULL; @@ -47,6 +46,7 @@ Perl_vdefault_protect(pTHX_ volatile JMPENV *pcur_env, int *excpt, JMPENV_POP; return ret; } +#endif SV** Perl_stack_grow(pTHX_ SV **sp, SV **p, int n) |