summaryrefslogtreecommitdiff
path: root/util.c
diff options
context:
space:
mode:
authorIlya Zakharevich <ilya@math.berkeley.edu>2000-09-27 14:54:49 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-03 00:04:00 +0000
commit6dc8a9e4bcd53982379e0df712cfc2dd75d92d2f (patch)
tree3172594a4993b36d88e40a7e472951cd65840346 /util.c
parentb57a092cb822ae32e4804707ff8729ac6bb222b9 (diff)
downloadperl-6dc8a9e4bcd53982379e0df712cfc2dd75d92d2f.tar.gz
Inside require() $^S was always left undefined.
Subject: Re: Tiny 2-byte change to fix debugger's eval bug Message-ID: <20000927185449.A24927@monk.mps.ohio-state.edu> p4raw-id: //depot/perl@7120
Diffstat (limited to 'util.c')
-rw-r--r--util.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/util.c b/util.c
index 6123321d28..12c30a0458 100644
--- a/util.c
+++ b/util.c
@@ -3606,7 +3606,7 @@ Perl_new_struct_thread(pTHX_ struct perl_thread *t)
JMPENV_BOOTSTRAP;
- PL_in_eval = EVAL_NULL; /* ~(EVAL_INEVAL|EVAL_WARNONLY|EVAL_KEEPERR) */
+ PL_in_eval = EVAL_NULL; /* ~(EVAL_INEVAL|EVAL_WARNONLY|EVAL_KEEPERR|EVAL_INREQUIRE) */
PL_restartop = 0;
PL_statname = NEWSV(66,0);