In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/06d39b9e94bbac456dc10d9548c7c133a02f4c09?hp=1bb0c253189bee57fc50a82b1420a60f2e677043>
- Log ----------------------------------------------------------------- commit 06d39b9e94bbac456dc10d9548c7c133a02f4c09 Author: Chris 'BinGOs' Williams <[email protected]> Date: Tue Dec 23 14:45:04 2014 +0000 Update Filter::Util::Call to CPAN version 1.53 [DELTA] 1.53 2014-12-20 rurban ---- * Re-release caused by broken SIGNATURE, caused by broken ExtUtils::Makemaker distsignature rules. See https://github.com/Perl-Toolchain-Gang/ExtUtils-MakeMaker/issues/177 1.52 2014-12-19 rurban ---- * Fix Filter::Util::Call regression from 1.50, for filter_add({}) or filter_add([]). This broke Switch, see RT #101004. ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/Filter-Util-Call/Call.pm | 6 +++--- cpan/Filter-Util-Call/Call.xs | 2 +- cpan/Filter-Util-Call/t/call.t | 2 +- 4 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 3f84c17..4a33564 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -538,7 +538,7 @@ use File::Glob qw(:case); }, 'Filter::Util::Call' => { - 'DISTRIBUTION' => 'RURBAN/Filter-1.51.tar.gz', + 'DISTRIBUTION' => 'RURBAN/Filter-1.53.tar.gz', 'FILES' => q[cpan/Filter-Util-Call pod/perlfilter.pod ], diff --git a/cpan/Filter-Util-Call/Call.pm b/cpan/Filter-Util-Call/Call.pm index d6a09a1..0f59fc9 100644 --- a/cpan/Filter-Util-Call/Call.pm +++ b/cpan/Filter-Util-Call/Call.pm @@ -18,7 +18,7 @@ use vars qw($VERSION @ISA @EXPORT) ; @ISA = qw(Exporter DynaLoader); @EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ; -$VERSION = "1.51" ; +$VERSION = "1.53" ; sub filter_read_exact($) { @@ -45,10 +45,10 @@ sub filter_add($) my($obj) = @_ ; # Did we get a code reference? - my $coderef = (ref $obj eq 'CODE') ; + my $coderef = (ref $obj eq 'CODE'); # If the parameter isn't already a reference, make it one. - if (!$coderef and !ref $obj) { + if (!$coderef and (!ref($obj) or ref($obj) =~ /^ARRAY|HASH$/)) { $obj = bless (\$obj, (caller)[0]); } diff --git a/cpan/Filter-Util-Call/Call.xs b/cpan/Filter-Util-Call/Call.xs index 48407ab..41eb805 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.51 + * Version : 1.53 * * 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 2fc897b..b1e32c4 100644 --- a/cpan/Filter-Util-Call/t/call.t +++ b/cpan/Filter-Util-Call/t/call.t @@ -686,7 +686,7 @@ sub import { my ($type) = shift ; - filter_add(bless [] ) + filter_add([]) } sub filter -- Perl5 Master Repository
