[Jifty-commit] r5752 - Jifty-DBI/branches/tisql/lib/Jifty/DBI

[Jifty commits]

Author: ruz
Date: Tue Aug 19 00:01:47 2008
New Revision: 5752

Modified:
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm

Log:
* we can have placeholder on the right side

Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	Tue Aug 19 00:01:47 2008
@@ -323,7 +323,7 @@
     my $string = shift;
     my $cb = shift;
 
-    if ( $string =~ /^(has(\s+no)?\s+)?($re_column)\s*($re_sql_op_bin)\s*($re_value)$/io ) {
+    if ( $string =~ /^(has(\s+no)?\s+)?($re_column)\s*($re_sql_op_bin)\s*($re_value_ph)$/io ) {
         my ($lhs, $op, $rhs) = ($cb->($3), $4, $5);
         my $prefix;
         $prefix = 'has' if $1;
@@ -358,8 +358,6 @@
     }
 }
 
-my $re_ph_keep = qr{($re_field)($re_ph_access)*};
-
 sub parse_column {
     my $self = shift;
     my $string = shift;