[Bast-commits] r9249 - SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-04-27 22:13:26 +0100 (Tue, 27 Apr 2010)
New Revision: 9249

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
mangled regexen to interpolate attrs correclty

Modified: SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 21:09:23 UTC (rev 9248)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 21:13:26 UTC (rev 9249)
@@ -90,8 +90,8 @@
 	my $self = shift;
     return (
         map {
-            ' ^ ' . quotemeta($_) . "(?= \$ | $self->stuff_around_mathops ) ",
-              " (?<= $self->stuff_around_mathops)" . quotemeta($_) . "(?= \$ | $self->stuff_around_mathops ) ",
+            ' ^ ' . quotemeta($_) . "(?= \$ | " . $self->stuff_around_mathops . " ) ",
+              " (?<= " . $self->stuff_around_mathops . ")" . quotemeta($_) . "(?= \$ | " . $self->stuff_around_mathops . ") ",
           } (qw/< > != <> = <= >=/)
       ),
       (