[perl.git] branch blead, updated. v5.13.8-53-gc8834ab

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/c8834ab7edb2752b04c3eaf1825541bea43ab610?hp=e8a07a125ebebaf06dc890127439c7461a063b35>

- Log -----------------------------------------------------------------
commit c8834ab7edb2752b04c3eaf1825541bea43ab610
Author: Tony Cook <t...@develop-help.com>
Date:   Tue Dec 28 13:58:29 2010 +1100

    avoid undefined behaviour in fetch and modify of SP from 0a0e3cc51e
    
    pp_sys.c: In function ‘Perl_pp_send’:
    pp_sys.c:1845: warning: operation on ‘sp’ may be undefined
-----------------------------------------------------------------------

Summary of changes:
 pp_sys.c |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/pp_sys.c b/pp_sys.c
index 3f43e49..711f93a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1842,7 +1842,8 @@ PP(pp_send)
        MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
        if (mg) {
            if (MARK == SP - 1) {
-               mXPUSHi(sv_len(*SP));
+               SV *sv = *SP;
+               mXPUSHi(sv_len(sv));
                PUTBACK;
            }
 

--
Perl5 Master Repository