[Bps-public-commit] r18840 - in Parse-BooleanLogic: lib/Parse
ruz at bestpractical.com
ruz at bestpractical.com
Wed Mar 18 16:29:07 EDT 2009
Author: ruz
Date: Wed Mar 18 16:29:06 2009
New Revision: 18840
Modified:
Parse-BooleanLogic/Changes
Parse-BooleanLogic/lib/Parse/BooleanLogic.pm
Log:
* don't assume that operand is a HASH, it can be any reference
Modified: Parse-BooleanLogic/Changes
==============================================================================
--- Parse-BooleanLogic/Changes (original)
+++ Parse-BooleanLogic/Changes Wed Mar 18 16:29:06 2009
@@ -1,3 +1,7 @@
+0.09
+
+ * don't assume that operand is a HASH, it can be any reference
+
0.08 2009-03-02
* partial_solve and walk methods
Modified: Parse-BooleanLogic/lib/Parse/BooleanLogic.pm
==============================================================================
--- Parse-BooleanLogic/lib/Parse/BooleanLogic.pm (original)
+++ Parse-BooleanLogic/lib/Parse/BooleanLogic.pm Wed Mar 18 16:29:06 2009
@@ -529,7 +529,7 @@
$cb->{'open_paren'}->( @rest ) if $cb->{'open_paren'};
$self->walk( $entry, $cb, @rest );
$cb->{'close_paren'}->( @rest ) if $cb->{'close_paren'};
- } elsif ( ref $entry eq 'HASH' ) {
+ } elsif ( ref $entry ) {
$cb->{'operand'}->( $entry, @rest ) if $cb->{'operand'};
} else {
$cb->{'operator'}->( $entry, @rest ) if $cb->{'operator'};
@@ -589,7 +589,7 @@
} else {
push @res, $tmp;
}
- } elsif ( ref $entry eq 'HASH' ) {
+ } elsif ( ref $entry ) {
if ( $cb->( $entry, @rest ) ) {
push @res, $entry;
} else {
More information about the Bps-public-commit
mailing list