diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2018-08-08 14:02:38 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2018-08-08 17:34:51 +0100 |
commit | cfaad56a035d0255346104de24641874b26b67ed (patch) | |
tree | ad8c8c090542ca816ed0dfc1f5b6d3aded2a89d7 /cpan | |
parent | 31474cb037e43230caf6538633ddf9fbbbe942a8 (diff) | |
download | perl-cfaad56a035d0255346104de24641874b26b67ed.tar.gz |
Upgrade Filter::Util::Call from version 1.58 to 1.59
Diffstat (limited to 'cpan')
-rw-r--r-- | cpan/Filter-Util-Call/Call.pm | 2 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/Call.xs | 10 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/t/call.t | 8 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/t/rt_54452-rebless.t | 4 |
4 files changed, 16 insertions, 8 deletions
diff --git a/cpan/Filter-Util-Call/Call.pm b/cpan/Filter-Util-Call/Call.pm index cfe9cb7886..c969c9aa71 100644 --- a/cpan/Filter-Util-Call/Call.pm +++ b/cpan/Filter-Util-Call/Call.pm @@ -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; diff --git a/cpan/Filter-Util-Call/Call.xs b/cpan/Filter-Util-Call/Call.xs index 74c3676257..c637108b6d 100644 --- 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.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) ; diff --git a/cpan/Filter-Util-Call/t/call.t b/cpan/Filter-Util-Call/t/call.t index b2a0cad95f..0be7cfa0e1 100644 --- a/cpan/Filter-Util-Call/t/call.t +++ b/cpan/Filter-Util-Call/t/call.t @@ -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"; diff --git a/cpan/Filter-Util-Call/t/rt_54452-rebless.t b/cpan/Filter-Util-Call/t/rt_54452-rebless.t index c212b2d1ee..93b702f87d 100644 --- a/cpan/Filter-Util-Call/t/rt_54452-rebless.t +++ b/cpan/Filter-Util-Call/t/rt_54452-rebless.t @@ -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" ; |