diff options
| author | Nicholas Clark <nick@ccl4.org> | 2013-10-04 15:15:56 +0200 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-11-22 21:20:37 -0800 |
| commit | 61bac25cda61b4427e5f2b2a645379733dac20a6 (patch) | |
| tree | 5af205c24f38c7d1e4e0b587b994f8584de2c408 /gv.c | |
| parent | ebdc88085efa6fca8a1b0afaa388f0491bdccd5a (diff) | |
| download | perl-61bac25cda61b4427e5f2b2a645379733dac20a6.tar.gz | |
Perl_load_module() no longer moves the current stack, so no need to save it.
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1255,14 +1255,15 @@ S_require_tie_mod(pTHX_ GV *gv, const char *varpv, SV* namesv, const char *methp so save it. For the moment it's always a single char. */ const char type = varname == '[' ? '$' : '%'; +#ifdef DEBUGGING dSP; +#endif ENTER; SAVEFREESV(namesv); if ( flags & 1 ) save_scalar(gv); - PUSHSTACKi(PERLSI_MAGIC); Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, module, NULL); - POPSTACK; + assert(sp == PL_stack_sp); stash = gv_stashsv(namesv, 0); if (!stash) Perl_croak(aTHX_ "panic: Can't use %c%c because %"SVf" is not available", |