X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSQL%2FAbstract.pm;h=48a2f5b0810c89367f07f2d7e3baf71f09bf328d;hb=a3e3e6a18;hp=08f6011689c6822ce84a6120263e035c21d51e7a;hpb=a9bd742adc890d3d93a60450ebf09f5368a6c176;p=dbsrgits%2FSQL-Abstract.git diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm index 08f6011..48a2f5b 100644 --- a/lib/SQL/Abstract.pm +++ b/lib/SQL/Abstract.pm @@ -2683,7 +2683,7 @@ not so common, but perfectly legal Perl). For example, to find a date in Postgres you can use something like this: my %where = ( - date_column => \[q/= date '2008-09-30' - ?::integer/, 10/] + date_column => \[q/= date '2008-09-30' - ?::integer/, 10] ) This would create: @@ -2700,7 +2700,7 @@ L will simply pass it through intact. So if C is set to C the above example will look like: my %where = ( - date_column => \[q/= date '2008-09-30' - ?::integer/, [ dummy => 10 ]/] + date_column => \[q/= date '2008-09-30' - ?::integer/, [ dummy => 10 ]] ) Literal SQL is especially useful for nesting parenthesized clauses in the