Upgrade Filter::Util::Call from version 1.58 to 1.59
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 8 Aug 2018 13:02:38 +0000 (14:02 +0100)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 8 Aug 2018 16:34:51 +0000 (17:34 +0100)
Porting/Maintainers.pl
cpan/Filter-Util-Call/Call.pm
cpan/Filter-Util-Call/Call.xs
cpan/Filter-Util-Call/t/call.t
cpan/Filter-Util-Call/t/rt_54452-rebless.t

index 4b05b6e..c9f8804 100755 (executable)
@@ -534,7 +534,7 @@ use File::Glob qw(:case);
     },
 
     'Filter::Util::Call' => {
-        'DISTRIBUTION' => 'RURBAN/Filter-1.58.tar.gz',
+        'DISTRIBUTION' => 'RURBAN/Filter-1.59.tar.gz',
         'FILES'        => q[cpan/Filter-Util-Call
                  pod/perlfilter.pod
                 ],
@@ -552,6 +552,7 @@ use File::Glob qw(:case);
                 t/cpp.t
                 t/decrypt.t
                 t/exec.t
+                t/m4.t
                 t/order.t
                 t/sh.t
                 t/tee.t
index cfe9cb7..c969c9a 100644 (file)
@@ -18,7 +18,7 @@ use warnings;
 
 our @ISA = qw(Exporter);
 our @EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-our $VERSION = "1.58" ;
+our $VERSION = "1.59" ;
 our $XS_VERSION = $VERSION;
 $VERSION = eval $VERSION;
 
index 74c3676..c637108 100644 (file)
@@ -3,7 +3,7 @@
  * 
  * Author   : Paul Marquess 
  * Date     : 2014-12-09 02:48:44 rurban
- * Version  : 1.58
+ * Version  : 1.59
  *
  *    Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
  *    Copyright (c) 2011-2014 Reini Urban. All rights reserved.
@@ -66,7 +66,9 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
     while (1) {
 
        /* anything left from last time */
-       if ((n = SvCUR(my_sv))) {
+
+        if ((n = SvCUR(my_sv))) {
+            assert(SvCUR(my_sv) < PERL_INT_MAX) ;
 
            out_ptr = SvPVX(my_sv) + BUF_OFFSET(my_sv) ;
 
@@ -146,7 +148,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
                croak("Filter::Util::Call - %s::filter returned %d values, 1 was expected \n", 
                        PERL_MODULE(my_sv), count ) ;
     
-           n = POPi ;
+           n = (IV)POPi ;
 
            if (fdebug)
                warn("status = %d, length op buf = %" IVdf " [%s]\n",
@@ -215,7 +217,7 @@ void
 real_import(object, perlmodule, coderef)
     SV *       object
     char *     perlmodule 
-    int                coderef
+    IV         coderef
     PPCODE:
     {
         SV * sv = newSV(1) ;
index b2a0cad..0be7cfa 100644 (file)
@@ -1,4 +1,5 @@
 use Config;
+
 BEGIN {
     if ($ENV{PERL_CORE}) {
         if ($Config{'extensions'} !~ m{\bFilter/Util/Call\b}) {
@@ -6,13 +7,16 @@ BEGIN {
             exit 0;
         }
     }
-    unshift @INC, 't';
-    require 'filter-util.pl';
 }
 
 use strict;
 use warnings;
 
+use FindBin;
+use lib "$FindBin::Bin"; # required to load filter-util.pl
+
+require 'filter-util.pl';
+
 use vars qw($Inc $Perl);
 
 print "1..34\n";
index c212b2d..93b702f 100644 (file)
@@ -8,7 +8,9 @@ if ($] < 5.004_55) {
 
 use strict;
 use warnings;
-BEGIN { unshift @INC, 't'; }
+
+use FindBin;
+use lib "$FindBin::Bin"; # required to load filter-util.pl
 
 require "filter-util.pl" ;