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

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-09-22 15:19:34 +0100 (Wed, 22 Sep 2010)
New Revision: 9737

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
Log:
Backout errnoeusly committed stuff

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-09-22 14:14:40 UTC (rev 9736)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract.pm	2010-09-22 14:19:34 UTC (rev 9737)
@@ -34,9 +34,8 @@
   # the digits are backcompat stuff
   { regex => qr/^and  (?: \s? \d+ )? $/xi, handler => '_where_op_ANDOR' },
   { regex => qr/^or   (?: \s? \d+ )? $/xi, handler => '_where_op_ANDOR' },
-  { regex => qr/^ (?: not \s )? bool $/xi, handler => '_where_op_BOOL' },
-  { regex => qr/^ ident              $/xi, handler => '_where_op_IDENT' },
   { regex => qr/^nest (?: \s? \d+ )? $/xi, handler => '_where_op_NEST' },
+  { regex => qr/^ (?: not \s )? bool $/xi, handler => '_where_op_BOOL' },
 );
 
 #======================================================================
@@ -532,16 +531,6 @@
   return ($sql, @bind);
 }
 
-sub _where_op_IDENT {
-  my ($self, $op, $v) = @_;
-
-  if (ref $v) {
-    puke "-$op takes a single scalar argument (a quotable identifier)";
-  }
-
-  return $self->_convert($self->_quote($v));
-}
-
 sub _where_op_ANDOR {
   my ($self, $op, $v) = @_;