Upgrade Filter-Util-Call from version 1.54 to 1.55

[perl5.git] / cpan / Filter-Util-Call / Call.xs

diff --git a/cpan/Filter-Util-Call/Call.xs b/cpan/Filter-Util-Call/Call.xs
index fd79c57..97280d7 100644 (file)
--- a/cpan/Filter-Util-Call/Call.xs
+++ b/cpan/Filter-Util-Call/Call.xs
@@ -3,7 +3,7 @@
  * 
  * Author   : Paul Marquess 
  * Date     : 2014-12-09 02:48:44 rurban
- * Version  : 1.54
+ * Version  : 1.55
  *
  *    Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
  *    Copyright (c) 2011-2014 Reini Urban. All rights reserved.
@@ -131,19 +131,15 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
            DEFSV_set(newSVpv("", 0)) ; 
 
            PUSHMARK(sp) ;
-
            if (CODE_REF(my_sv)) {
            /* if (SvROK(PERL_OBJECT(my_sv)) && SvTYPE(SvRV(PERL_OBJECT(my_sv))) == SVt_PVCV) { */
                count = perl_call_sv((SV*)PERL_OBJECT(my_sv), G_SCALAR);
            }
            else {
                 XPUSHs((SV*)PERL_OBJECT(my_sv)) ;  
-       
                PUTBACK ;
-
                count = perl_call_method("filter", G_SCALAR);
            }
-
            SPAGAIN ;
 
             if (count != 1)