In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/7594f18f6aa16e16707d34a484c75a3e6c702b54?hp=35e5ce6797fbefd6230e2f09e14b4c55b1eeaab4>
- Log -----------------------------------------------------------------
commit 7594f18f6aa16e16707d34a484c75a3e6c702b54
Author: Aaron Crane <a...@cpan.org>
Date: Sat Feb 4 15:28:19 2017 +0000
Fix memory leak in generating an exception message
This was my fault; oops.
-----------------------------------------------------------------------
Summary of changes:
pp_sys.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/pp_sys.c b/pp_sys.c
index 7c125b5137..9874107e06 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -960,7 +960,7 @@ PP(pp_tie)
/* If the glob doesn't name an existing package, using
* SVfARG(*MARK) would yield "*Foo::Bar" or *main::Foo. So
* generate the name for the error message explicitly. */
- SV *stashname = newSV(0);
+ SV *stashname = sv_2mortal(newSV(0));
gv_fullname4(stashname, (GV *) *MARK, NULL, FALSE);
DIE(aTHX_ "Can't locate object method \"%s\" via package \"%"
SVf "\"",
methname, SVfARG(stashname));
--
Perl5 Master Repository
