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.54.
authorMatthew Horsfall <wolfsage@gmail.com>
Tue, 20 Jan 2015 15:23:26 +0000 (10:23 -0500)
committerMatthew Horsfall <wolfsage@gmail.com>
Tue, 20 Jan 2015 16:53:25 +0000 (11:53 -0500)
Porting/Maintainers.pl
cpan/Filter-Util-Call/Call.pm
cpan/Filter-Util-Call/Call.xs

index 4e0bb43..1da1db4 100755 (executable)
@@ -535,7 +535,7 @@ use File::Glob qw(:case);
     },
 
     'Filter::Util::Call' => {
-        'DISTRIBUTION' => 'RURBAN/Filter-1.53.tar.gz',
+        'DISTRIBUTION' => 'RURBAN/Filter-1.54.tar.gz',
         'FILES'        => q[cpan/Filter-Util-Call
                  pod/perlfilter.pod
                 ],
index 0f59fc9..f282a15 100644 (file)
@@ -18,7 +18,7 @@ use vars qw($VERSION @ISA @EXPORT) ;
 
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-$VERSION = "1.53" ;
+$VERSION = "1.54" ;
 
 sub filter_read_exact($)
 {
index 41eb805..fd79c57 100644 (file)
@@ -3,7 +3,7 @@
  * 
  * Author   : Paul Marquess 
  * Date     : 2014-12-09 02:48:44 rurban
- * Version  : 1.53
+ * Version  : 1.54
  *
  *    Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
  *    Copyright (c) 2011-2014 Reini Urban. All rights reserved.
@@ -173,7 +173,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 +184,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 +250,7 @@ void
 unimport(package="$Package", ...)
     const char *package
     PPCODE:
+    PERL_UNUSED_VAR(package);
     filter_del(filter_call);