[Rt-commit] [svn] r1619 - in rt/branches/3.2-SYBASE-TESTING: . lib/RT

jesse at pallas.eruditorum.org jesse at pallas.eruditorum.org
Mon Oct 4 16:01:26 EDT 2004


Author: jesse
Date: Mon Oct  4 16:01:26 2004
New Revision: 1619

Modified:
   rt/branches/3.2-SYBASE-TESTING/   (props changed)
   rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm
Log:
 r10343 at tinbook:  jesse | 2004-09-23T07:47:26.514414Z
  r8478 at Jesse-Vincents-Computer:  jesse | 2004-08-31T08:14:29.467020Z
  Inlined Tickets_Overlay_SQL's "match"
  
 


Modified: rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm
==============================================================================
--- rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm	(original)
+++ rt/branches/3.2-SYBASE-TESTING/lib/RT/Tickets_Overlay_SQL.pm	Mon Oct  4 16:01:26 2004
@@ -121,14 +121,6 @@
 
 =cut
 
-sub _match {
-  # Case insensitive equality
-  my ($y,$x) = @_;
-  return 1 if $x =~ /^$y$/i;
-  #  return 1 if ((lc $x) eq (lc $y)); # Why isnt this equiv?
-  return 0;
-}
-
 =head2 Robert's Simple SQL Parser
 
 Documentation In Progress
@@ -229,11 +221,11 @@
     my $current = 0;
 
     # Highest priority is last
-    $current = OP      if _match($re_op,$val) ;
-    $current = VALUE   if _match($re_value,$val);
-    $current = KEYWORD if _match($re_keyword,$val) && ($want & KEYWORD);
-    $current = AGGREG  if _match($re_aggreg,$val);
-    $current = PAREN   if _match($re_paren,$val);
+    $current = OP      if $val =~ /^$re_op$/io;
+    $current = VALUE   if $val =~ /^$re_value$/io;
+    $current = KEYWORD if $val =~ /^$re_keyword$/io && ($want & KEYWORD);
+    $current = AGGREG  if $val =~ /^$re_aggreg$/io;
+    $current = PAREN   if $val =~ /^$re_paren$/io;
 
 
     unless ($current && $want & $current) {


More information about the Rt-commit mailing list