[Bast-commits] r9733 - SQL-Abstract/1.x/trunk/lib/SQL/Abstract

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-09-22 11:00:37 +0100 (Wed, 22 Sep 2010)
New Revision: 9733

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
Log:
Stupid stupid typo

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm	2010-09-22 09:49:58 UTC (rev 9732)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm	2010-09-22 10:00:37 UTC (rev 9733)
@@ -282,7 +282,7 @@
       }
     }
     # binary operator keywords
-    elsif ( $token =~ /^ $$binary_op_re $ /x ) {
+    elsif ( $token =~ /^ $binary_op_re $ /x ) {
       my $op = uc $token;
       my $right = $self->_recurse_parse($tokens, PARSE_RHS);