diff options
author | Todd Rinaldo <toddr@cpan.org> | 2020-09-12 22:38:27 -0500 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2020-09-13 00:23:12 -0500 |
commit | 0b7fa637773b570a12516ce42394aa08adbf8d5c (patch) | |
tree | fcbc1c9a83ee8a83ad5a389e389d795d7aa28a33 | |
parent | 401624ce9e08d13d7bb66fa7c6a1c0ac2c9122dd (diff) | |
download | perl-0b7fa637773b570a12516ce42394aa08adbf8d5c.tar.gz |
Update Filter-Util-Call to CPAN version 1.60
[DELTA]
1.60 2020-08-05 rurban
- Increase t/call.t verbosity on failures (PR #12 aatomic)
- Push cwd to @INC for PERL_CORE (PR #11 jkeenan)
- Update search.cpan.org link to metacpan (PR #10 Grinnz)
-rwxr-xr-x | Porting/Maintainers.pl | 3 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/Call.pm | 2 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/Call.xs | 2 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/t/call.t | 52 | ||||
-rw-r--r-- | cpan/Filter-Util-Call/t/rt_54452-rebless.t | 7 | ||||
-rw-r--r-- | pod/perlfilter.pod | 2 | ||||
-rw-r--r-- | t/porting/customized.dat | 2 |
7 files changed, 40 insertions, 30 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 2322851cf1..5cdb19a693 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -548,7 +548,7 @@ use File::Glob qw(:case); }, 'Filter::Util::Call' => { - 'DISTRIBUTION' => 'RURBAN/Filter-1.59.tar.gz', + 'DISTRIBUTION' => 'RURBAN/Filter-1.60.tar.gz', 'FILES' => q[cpan/Filter-Util-Call pod/perlfilter.pod ], @@ -559,6 +559,7 @@ use File::Glob qw(:case); qr{^lib/Filter/}, qr{^tee/}, qw( .appveyor.yml + .whitesource Call/Makefile.PL Call/ppport.h Call/typemap diff --git a/cpan/Filter-Util-Call/Call.pm b/cpan/Filter-Util-Call/Call.pm index c969c9aa71..0805ae7335 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.59" ; +our $VERSION = "1.60" ; our $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/cpan/Filter-Util-Call/Call.xs b/cpan/Filter-Util-Call/Call.xs index c637108b6d..2ac88e29fc 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.59 + * Version : 1.60 * * Copyright (c) 1995-2011 Paul Marquess. All rights reserved. * Copyright (c) 2011-2014 Reini Urban. All rights reserved. diff --git a/cpan/Filter-Util-Call/t/call.t b/cpan/Filter-Util-Call/t/call.t index 0be7cfa0e1..7618a9dee7 100644 --- a/cpan/Filter-Util-Call/t/call.t +++ b/cpan/Filter-Util-Call/t/call.t @@ -6,6 +6,8 @@ BEGIN { print "1..0 # Skip: Filter::Util::Call was not built\n"; exit 0; } + require Cwd; + unshift @INC, Cwd::cwd(); } } @@ -128,10 +130,10 @@ use $module ; EOM use Cwd ; -$here = getcwd ; +my $here = getcwd ; print "I am $here\n" ; print "some letters ABC\n" ; -$y = "ABCDEF" ; +my $y = "ABCDEF" ; print <<EOF ; Alphabetti Spagetti ($y) EOF @@ -139,7 +141,7 @@ EOF EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(5, ($? >>8) == 0) ; +ok(5, ($? >>8) == 0) or warn $a; ok(6, $a eq <<EOM) ; I am $here some letters DEF @@ -177,10 +179,10 @@ use $module ; EOM use Cwd ; -$here = getcwd ; +my $here = getcwd ; print "I am $here\n" ; print "some letters ABC\n" ; -$y = "ABCDEF" ; +my $y = "ABCDEF" ; print <<EOF ; Alphabetti Spagetti ($y) EOF @@ -188,7 +190,7 @@ EOF EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(7, ($? >>8) == 0) ; +ok(7, ($? >>8) == 0) or warn $a; ok(8, $a eq <<EOM) ; I am $here some letters DEF @@ -284,7 +286,7 @@ use $module4 ; EOM print "some letters ABCXYZ\n" ; -$y = "ABCDEFXYZ" ; +my $y = "ABCDEFXYZ" ; print <<EOF ; Fred likes Alphabetti Spagetti ($y) EOF @@ -303,7 +305,7 @@ EOF EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(9, ($? >>8) == 0) ; +ok(9, ($? >>8) == 0) or warn $a; ok(10, $a eq <<EOM) ; I'm feeling used! Fred Joe ABC DEF PQR XYZ @@ -357,7 +359,7 @@ use $module2 qw( ABC NMO) ; EOM print "some letters ABCXYZ KLM NMO\n" ; -$y = "ABCDEFXYZKLMNMO" ; +my $y = "ABCDEFXYZKLMNMO" ; print <<EOF ; Alphabetti Spagetti ($y) EOF @@ -365,7 +367,7 @@ EOF EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(11, ($? >>8) == 0) ; +ok(11, ($? >>8) == 0) or warn $a; ok(12, $a eq <<EOM) ; some letters PQRPQR PQR PQR Alphabetti Spagetti (PQRDEFPQRPQRPQR) @@ -416,7 +418,7 @@ use $module2 qw( ABC NMO) ; EOM print "some letters ABCXYZ KLM NMO\n" ; -$y = "ABCDEFXYZKLMNMO" ; +my $y = "ABCDEFXYZKLMNMO" ; print <<EOF ; Alphabetti Spagetti ($y) EOF @@ -424,7 +426,7 @@ EOF EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(13, ($? >>8) == 0) ; +ok(13, ($? >>8) == 0) or warn $a; ok(14, $a eq <<EOM) ; some letters PQRPQR PQR PQR Alphabetti Spagetti (PQRDEFPQRPQRPQR) @@ -484,7 +486,7 @@ F EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(15, ($? >>8) == 0) ; +ok(15, ($? >>8) == 0) or warn $a; ok(16, $a eq <<EOM) ; don't cut me in half appended @@ -522,7 +524,7 @@ EOM my $string = <<'EOM' ; print "hello mum\n" ; -$x = 'me ' x 3 ; +my $x = 'me ' x 3 ; print "Who wants it?\n$x\n" ; EOM @@ -532,7 +534,7 @@ use $block ; EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(17, ($? >>8) == 0) ; +ok(17, ($? >>8) == 0) or warn $a; ok(18, $a eq <<EOM) ; hello mum Who wants it? @@ -580,7 +582,7 @@ print "We are in DIR\n" ; EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(19, ($? >>8) == 0) ; +ok(19, ($? >>8) == 0) or warn $a; ok(20, $a eq <<EOM) ; We are in $here EOM @@ -631,7 +633,7 @@ HERE today gone tomorrow\n" ; EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(21, ($? >>8) == 0) ; +ok(21, ($? >>8) == 0) or warn $a; ok(22, $a eq <<EOM) ; THERE I am @@ -681,7 +683,7 @@ HERE today gone tomorrow\n" ; EOM $a = `$Perl "-I." $Inc $filenamebin $redir` ; -ok(23, ($? >>8) == 0) ; +ok(23, ($? >>8) == 0) or warn $a; ok(24, $a eq <<EOM) ; HERE I am @@ -726,7 +728,7 @@ writeFile($filename, <<EOM, <<'EOM') ; use $block ; EOM print "HERE HERE\n"; -@a = <DATA>; +my @a = <DATA>; print @a; __DATA__ HERE I am @@ -735,7 +737,7 @@ HERE today gone tomorrow EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(25, ($? >>8) == 0) ; +ok(25, ($? >>8) == 0) or warn $a; ok(26, $a eq <<EOM) ; THERE THERE HERE I am @@ -782,7 +784,7 @@ writeFile($filename, <<EOM, <<'EOM') ; use $block ; EOM print "HERE HERE\n"; -@a = <DATA>; +my @a = <DATA>; print @a; __END__ HERE I am @@ -791,7 +793,7 @@ HERE today gone tomorrow EOM $a = `$Perl "-I." $Inc $filename $redir` ; -ok(27, ($? >>8) == 0) ; +ok(27, ($? >>8) == 0) or warn $a; ok(28, $a eq <<EOM) ; THERE THERE HERE I am @@ -824,12 +826,12 @@ EOM my $str = $^O eq 'MacOS' ? "'ok'" : "q{ok}"; my $a = `$Perl "-I." $Inc -e "no ${module6}; print $str"`; -ok(29, ($? >>8) == 0); +ok(29, ($? >>8) == 0) or warn $a; chomp( $a ) if $^O eq 'VMS'; ok(30, $a eq 'ok'); $a = `$Perl "-I." $Inc $filename2`; -ok(31, ($? >>8) == 0); +ok(31, ($? >>8) == 0) or warn $a; chomp( $a ) if $^O eq 'VMS'; ok(32, $a eq 'ok'); @@ -873,7 +875,7 @@ HERE today gone tomorrow\n" ; EOM $a = `$Perl "-I." $Inc $filenamebin $redir` ; -ok(33, ($? >>8) != 0) ; +ok(33, ($? >>8) != 0) or warn $a; ok(34, $a =~ /^filter_read_exact: size parameter must be > 0 at block.pm/) ; diff --git a/cpan/Filter-Util-Call/t/rt_54452-rebless.t b/cpan/Filter-Util-Call/t/rt_54452-rebless.t index 93b702f87d..074a46543d 100644 --- a/cpan/Filter-Util-Call/t/rt_54452-rebless.t +++ b/cpan/Filter-Util-Call/t/rt_54452-rebless.t @@ -6,6 +6,13 @@ if ($] < 5.004_55) { exit 0; } +BEGIN { + if ($ENV{PERL_CORE}) { + require Cwd; + unshift @INC, Cwd::cwd(); + } +} + use strict; use warnings; diff --git a/pod/perlfilter.pod b/pod/perlfilter.pod index 6b15eccf95..959deefef1 100644 --- a/pod/perlfilter.pod +++ b/pod/perlfilter.pod @@ -571,7 +571,7 @@ code chunks beginning with the division operator C</>. As a workaround you must use C<m/.../> or C<m?...?> for such patterns. Also, the presence of regexes specified with raw C<?...?> delimiters may cause mysterious errors. The workaround is to use C<m?...?> instead. See -L<https://search.cpan.org/perldoc?Switch#LIMITATIONS> +L<https://metacpan.org/pod/Switch#LIMITATIONS>. Currently the content of the C<__DATA__> block is not filtered. diff --git a/t/porting/customized.dat b/t/porting/customized.dat index 2ba3e3c49b..335ef267a2 100644 --- a/t/porting/customized.dat +++ b/t/porting/customized.dat @@ -9,7 +9,7 @@ Digest::MD5 cpan/Digest-MD5/MD5.pm df5f0663f0f755be7eda6e3d2f008f2629246b19 Digest::MD5 cpan/Digest-MD5/MD5.xs 249bed648232192ce018f7f894ad127c3a639831 Digest::MD5 cpan/Digest-MD5/t/files.t e987329d2411ff60ad9a2bdf93fdf5f6943467e8 ExtUtils::Constant cpan/ExtUtils-Constant/t/Constant.t d5c75c41d6736a0c5897130f534af0896a7d6f4d -Filter::Util::Call pod/perlfilter.pod 67d1ea264f5fe88e9422976e2a903bf3d1671f6d +Filter::Util::Call pod/perlfilter.pod 9b4aec0d8518274ddb0dd37e3b770fe13a44dd1f Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6 Math::Complex cpan/Math-Complex/lib/Math/Complex.pm 66f28a17647e2de166909ca66e4ced26f8a0a62e Math::Complex cpan/Math-Complex/t/Complex.t 17039e03ee798539e770ea9a0d19a99364278306 |