This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Filter::Util::Call to CPAN version 1.53
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 23 Dec 2014 14:45:04 +0000 (14:45 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 23 Dec 2014 14:45:04 +0000 (14:45 +0000)
  [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.

Porting/Maintainers.pl
cpan/Filter-Util-Call/Call.pm
cpan/Filter-Util-Call/Call.xs
cpan/Filter-Util-Call/t/call.t

index 3f84c17..4a33564 100755 (executable)
@@ -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
                 ],
index d6a09a1..0f59fc9 100644 (file)
@@ -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]);
     }
 
index 48407ab..41eb805 100644 (file)
@@ -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.
index 2fc897b..b1e32c4 100644 (file)
@@ -686,7 +686,7 @@ sub import
 {
     my ($type) = shift ;
  
-    filter_add(bless [] )
+    filter_add([])
 }
  
 sub filter