diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2000-09-27 14:54:49 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-03 00:04:00 +0000 |
| commit | 6dc8a9e4bcd53982379e0df712cfc2dd75d92d2f (patch) | |
| tree | 3172594a4993b36d88e40a7e472951cd65840346 /mg.c | |
| parent | b57a092cb822ae32e4804707ff8729ac6bb222b9 (diff) | |
| download | perl-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 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -575,9 +575,7 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) if (PL_lex_state != LEX_NOTPARSING) (void)SvOK_off(sv); else if (PL_in_eval) - sv_setiv(sv, 1); - else - sv_setiv(sv, 0); + sv_setiv(sv, PL_in_eval & ~(EVAL_INREQUIRE)); } break; case '\024': /* ^T */ |