[perl.git] branch blead, updated. v5.19.7-204-g23d1ca4

[Tony Cook]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/23d1ca42f29afcdee8401f9a085a03dc95ba9d0c?hp=dc2e544e7f6b9c92650110831cb474944d022ca5>

- Log -----------------------------------------------------------------
commit 23d1ca42f29afcdee8401f9a085a03dc95ba9d0c
Author: Daniel Dragan <bul...@hotmail.com>
Date:   Sun Jan 5 21:51:11 2014 -0500

    ext/Win32CORE/Win32CORE.c, rmv redundant stack & mark code
    
    Poping the mark and repushing it is redundant.
-----------------------------------------------------------------------

Summary of changes:
 ext/Win32CORE/Win32CORE.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/ext/Win32CORE/Win32CORE.c b/ext/Win32CORE/Win32CORE.c
index db58514..bd9834e 100644
--- a/ext/Win32CORE/Win32CORE.c
+++ b/ext/Win32CORE/Win32CORE.c
@@ -23,7 +23,6 @@
 
 
 XS(w32_CORE_all){
-    dXSARGS;
     DWORD err = GetLastError();
     /* capture the XSANY value before Perl_load_module, the CV's any member 
will
      * be overwritten by Perl_load_module and subsequent newXSes or pure perl
@@ -32,8 +31,7 @@ XS(w32_CORE_all){
     const char *function  = (const char *) XSANY.any_ptr;
     Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn("Win32",5), 
newSVnv(0.27));
     SetLastError(err);
-    assert(sp == PL_stack_sp);
-    PUSHMARK(SP-items);
+    /* mark and SP from caller are passed through unchanged */
     call_pv(function, GIMME_V);
 }
 

--
Perl5 Master Repository