diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-10-17 14:51:35 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1999-10-17 14:51:35 +0000 |
| commit | e631c953b3966314f0191272fa1ccb1a3d8fd885 (patch) | |
| tree | 4be039fc811b5356735fa3f6a32ee73a53fe6894 /pp_hot.c | |
| parent | e6d78dcc789dccb982e1607cb4aa1ffdbeb189b0 (diff) | |
| parent | e87397262fea23fa89ba85aa7fe9c848306450ab (diff) | |
| download | perl-e631c953b3966314f0191272fa1ccb1a3d8fd885.tar.gz | |
Pre-trip resolve
p4raw-id: //depot/utfperl@4399
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -2536,7 +2536,13 @@ try_autoload: "%p entersub preparing @_\n", thr)); #endif av = (AV*)PL_curpad[0]; - assert(!AvREAL(av)); + if (AvREAL(av)) { + /* @_ is normally not REAL--this should only ever + * happen when DB::sub() calls things that modify @_ */ + av_clear(av); + AvREAL_off(av); + AvREIFY_on(av); + } #ifndef USE_THREADS cx->blk_sub.savearray = GvAV(PL_defgv); GvAV(PL_defgv) = (AV*)SvREFCNT_inc(av); |