diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-11-25 06:06:31 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-11-25 09:42:46 -0800 |
| commit | e753e3b14f2b73d39c5b0f4ae0a3b171e8c72823 (patch) | |
| tree | 2d74b68fd55467bc3cd0dc7051cfcf87f17acd03 /pp_ctl.c | |
| parent | 88e9444c4ef58850472b05bba333f4072222d0da (diff) | |
| download | perl-e753e3b14f2b73d39c5b0f4ae0a3b171e8c72823.tar.gz | |
Stop eval "no 5" from leaking
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3422,7 +3422,9 @@ PP(pp_require) if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) { if ( vcmp(sv,PL_patchlevel) <= 0 ) DIE(aTHX_ "Perls since %"SVf" too modern--this is %"SVf", stopped", - SVfARG(vnormal(sv)), SVfARG(vnormal(PL_patchlevel))); + SVfARG(sv_2mortal(vnormal(sv))), + SVfARG(sv_2mortal(vnormal(PL_patchlevel))) + ); } else { if ( vcmp(sv,PL_patchlevel) > 0 ) { |