[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