[perl.git] branch blead, updated. v5.21.0-91-ga2d8379

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/a2d8379b96447607acb2221e284e1f5436dd64d8?hp=d4825b278e28006bdc9c3f36ab174eade62d6c4c>

- Log -----------------------------------------------------------------
commit a2d8379b96447607acb2221e284e1f5436dd64d8
Author: Daniel Dragan <bul...@hotmail.com>
Date:   Tue Apr 29 12:27:42 2014 -0400

    cleanup on commit "Pseudo-fork dups arg array on argless calls"
    
    less branching, less cpu intructions, easier to read
-----------------------------------------------------------------------

Summary of changes:
 sv.c | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/sv.c b/sv.c
index c213919..06c0b83 100644
--- a/sv.c
+++ b/sv.c
@@ -12898,14 +12898,13 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, 
CLONE_PARAMS* param)
                ncx->blk_sub.cv         = (ncx->blk_sub.olddepth == 0
                                           ? cv_dup_inc(ncx->blk_sub.cv, param)
                                           : cv_dup(ncx->blk_sub.cv,param));
-               ncx->blk_sub.argarray   = (CxHASARGS(ncx)
-                                          ? av_dup_inc(ncx->blk_sub.argarray,
-                                                       param)
-                                          : NULL);
-               ncx->blk_sub.savearray  =  (CxHASARGS(ncx)
-                                            ? 
av_dup_inc(ncx->blk_sub.savearray,
-                                                    param)
-                                          : NULL);
+               if(CxHASARGS(ncx)){
+                   ncx->blk_sub.argarray = 
av_dup_inc(ncx->blk_sub.argarray,param);
+                   ncx->blk_sub.savearray = 
av_dup_inc(ncx->blk_sub.savearray,param);
+               } else {
+                   ncx->blk_sub.argarray = NULL;
+                   ncx->blk_sub.savearray = NULL;
+               }
                ncx->blk_sub.oldcomppad = (PAD*)ptr_table_fetch(PL_ptr_table,
                                           ncx->blk_sub.oldcomppad);
                break;

--
Perl5 Master Repository