In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ce7ce09736ea27007b926de51e1f44c473ea79e5?hp=60df6830c0429ffd1f40e4d01237803f337499a5>
- Log ----------------------------------------------------------------- commit ce7ce09736ea27007b926de51e1f44c473ea79e5 Author: Aaron Crane <[email protected]> Date: Sun Aug 3 17:33:02 2014 +0100 Update B-Debug to CPAN version 1.20 [DELTA] 1.20 2014-08-03 rurban * avoid exists on an array element (aaron crane) ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/B-Debug/Debug.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 811c75b..5c2b8f2 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -175,7 +175,7 @@ use File::Glob qw(:case); }, 'B::Debug' => { - 'DISTRIBUTION' => 'RURBAN/B-Debug-1.19.tar.gz', + 'DISTRIBUTION' => 'RURBAN/B-Debug-1.20.tar.gz', 'FILES' => q[cpan/B-Debug], 'EXCLUDED' => ['t/pod.t'], }, diff --git a/cpan/B-Debug/Debug.pm b/cpan/B-Debug/Debug.pm index c4a1a33..45b79ef 100644 --- a/cpan/B-Debug/Debug.pm +++ b/cpan/B-Debug/Debug.pm @@ -1,6 +1,6 @@ package B::Debug; -our $VERSION = '1.19'; +our $VERSION = '1.20'; use strict; require 5.006; @@ -361,7 +361,7 @@ EOT sub B::SPECIAL::debug { my $sv = shift; my $i = ref $sv ? $$sv : 0; - print exists $specialsv_name[$i] ? $specialsv_name[$i] : "", "\n"; + print defined $specialsv_name[$i] ? $specialsv_name[$i] : "", "\n"; } sub B::PADLIST::debug { -- Perl5 Master Repository
