[libencode-perl] 01/08: SPAGAIN after call_pv(), which can reallocate the perl stack

[Anuradha Weeraman]

This is an automated email from the git hooks/post-receive script.

anuradha-guest pushed a commit to tag 2.64
in repository libencode-perl.

commit 5f0737ab20b7bd46cddaccdfff5a6f78b73f19e1
Author: Tony Cook <tony at develop-help.com>
Date:   Thu Oct 2 11:05:03 2014 +1000

    SPAGAIN after call_pv(), which can reallocate the perl stack
---
 Encode.xs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Encode.xs b/Encode.xs
index 5ee4539..5e20c3d 100644
--- a/Encode.xs
+++ b/Encode.xs
@@ -686,6 +686,7 @@ CODE:
     /* require_pv(PERLIO_FILENAME); */
 
     eval_pv("require PerlIO::encoding", 0);
+    SPAGAIN;
 
     if (SvTRUE(get_sv("@", 0))) {
     ST(0) = &PL_sv_no;
@@ -703,6 +704,7 @@ CODE:
     encode_t *enc = INT2PTR(encode_t *, SvIV(SvRV(obj)));
     SV *retval;
     eval_pv("require Encode::MIME::Name", 0);
+    SPAGAIN;
 
     if (SvTRUE(get_sv("@", 0))) {
 	ST(0) = &PL_sv_undef;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libencode-perl.git