[Rt-commit] r4671 - in rt/branches/3.7-EXPERIMENTAL: .

[robert at bestpractical.com]

Author: robert
Date: Fri Mar  3 01:10:08 2006
New Revision: 4671

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/SQL.pm

Log:
 r4700 at bear:  rspier | 2006-03-02 22:04:34 -0800
 readability improvement (what are the arguments?)


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/SQL.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/SQL.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/SQL.pm	Fri Mar  3 01:10:08 2006
@@ -22,6 +22,8 @@
 my $re_close_paren = qr[\)];
 
 sub ParseToArray {
+    my ($string) = shift;
+
     my ($tree, $node, @pnodes);
     $node = $tree = [];
 
@@ -31,7 +33,7 @@
     $callback{'EntryAggregator'} = sub { push @$node, $_[0] };
     $callback{'Condition'} = sub { push @$node, { key => $_[0], op => $_[1], value => $_[2] } };
 
-    Parse(shift, \%callback);
+    Parse($string, \%callback);
     return $tree;
 }