diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-06-12 23:05:55 +0530 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 12:35:02 +0000 |
| commit | a4268c0aeed5c62288abc420420bbe3d0436a5b6 (patch) | |
| tree | 39242f2788d3c814365d34121dbc41b90bea3aae /mg.c | |
| parent | af9219eeb845660a7947f94064c62c7fc5ce5900 (diff) | |
| download | perl-a4268c0aeed5c62288abc420420bbe3d0436a5b6.tar.gz | |
$^S almost entirely broken with 5.6.1
Message-ID: <20010612173555.A32426@lustre.linux.in>
p4raw-id: //depot/perl@10531
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -581,6 +581,8 @@ Perl_magic_get(pTHX_ SV *sv, MAGIC *mg) (void)SvOK_off(sv); else if (PL_in_eval) sv_setiv(sv, PL_in_eval & ~(EVAL_INREQUIRE)); + else + sv_setiv(sv, 0); } break; case '\024': /* ^T */ |