Perl · toddr · Sep 13, 2020 · Sep 13, 2020
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
@@ -548,7 +548,7 @@ package Maintainers;
     },
 
     '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 @@ package Maintainers;
             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
@@ -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
@@ -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
@@ -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,18 +130,18 @@ 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
 
 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,18 +179,18 @@ 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
 
 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,15 +359,15 @@ use $module2 qw( ABC NMO) ;
 EOM
 
 print "some letters ABCXYZ KLM NMO\n" ;
-$y = "ABCDEFXYZKLMNMO" ;
+my $y = "ABCDEFXYZKLMNMO" ;
 print <<EOF ;
 Alphabetti Spagetti ($y)
 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,15 +418,15 @@ use $module2 qw( ABC NMO) ;
 EOM
 
 print "some letters ABCXYZ KLM NMO\n" ;
-$y = "ABCDEFXYZKLMNMO" ;
+my $y = "ABCDEFXYZKLMNMO" ;
 print <<EOF ;
 Alphabetti Spagetti ($y)
 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
@@ -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
@@ -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
@@ -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