This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Filter::Util::Call to CPAN version 1.58
[perl5.git] / cpan / Filter-Util-Call / Call.xs
index 41eb805..74c3676 100644 (file)
@@ -3,7 +3,7 @@
  * 
  * Author   : Paul Marquess 
  * Date     : 2014-12-09 02:48:44 rurban
- * Version  : 1.53
+ * Version  : 1.58
  *
  *    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)
@@ -173,7 +169,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
 
            if (fdebug) 
                warn ("filter_read %d returned %d , returning %" IVdf "\n", idx, n,
-                     (SvCUR(buf_sv)>0) ? SvCUR(buf_sv) : (IV)n);
+                     (SvCUR(buf_sv)>0) ? (IV)SvCUR(buf_sv) : (IV)n);
 
            /* PERL_MODULE(my_sv) ; */
            /* PERL_OBJECT(my_sv) ; */
@@ -184,7 +180,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
                return n ;
 
            /* return what we have so far else signal eof */
-           return (SvCUR(buf_sv)>0) ? SvCUR(buf_sv) : n;
+           return (SvCUR(buf_sv)>0) ? (int)SvCUR(buf_sv) : n;
        }
 
     }
@@ -250,6 +246,7 @@ void
 unimport(package="$Package", ...)
     const char *package
     PPCODE:
+    PERL_UNUSED_VAR(package);
     filter_del(filter_call);