summaryrefslogtreecommitdiff
path: root/cpan
diff options
context:
space:
mode:
authorSteve Hay <steve.m.hay@googlemail.com>2018-08-08 14:02:38 +0100
committerSteve Hay <steve.m.hay@googlemail.com>2018-08-08 17:34:51 +0100
commitcfaad56a035d0255346104de24641874b26b67ed (patch)
treead8c8c090542ca816ed0dfc1f5b6d3aded2a89d7 /cpan
parent31474cb037e43230caf6538633ddf9fbbbe942a8 (diff)
downloadperl-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.pm2
-rw-r--r--cpan/Filter-Util-Call/Call.xs10
-rw-r--r--cpan/Filter-Util-Call/t/call.t8
-rw-r--r--cpan/Filter-Util-Call/t/rt_54452-rebless.t4
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" ;