diff options
Diffstat (limited to 'src/if_perl.xs')
-rw-r--r-- | src/if_perl.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/if_perl.xs b/src/if_perl.xs index c7177700ff..1afb1d4cf1 100644 --- a/src/if_perl.xs +++ b/src/if_perl.xs @@ -1373,6 +1373,7 @@ do_perleval(char_u *str, typval_T *rettv) SPAGAIN; SvREFCNT_dec(sv); sv = POPs; + PUTBACK; } } else @@ -1383,7 +1384,6 @@ do_perleval(char_u *str, typval_T *rettv) ref_map_free(); err = SvPV(GvSV(PL_errgv), err_len); } - PUTBACK; FREETMPS; LEAVE; } |