From: Norbert Buchmuller <norbi@nix.hu>
Date: Mon, 16 Feb 2009 13:17:07 +0000 (+0000)
Subject: Fixed 'use constant' statement to work on Perl 5.6.
X-Git-Tag: v1.70~235
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5221d7fcb1a7510b21362464497864b3edef07bf;hp=8a0d798a7a265eec82275bb0b67e620bb85d27ab;p=dbsrgits%2FSQL-Abstract.git

Fixed 'use constant' statement to work on Perl 5.6.
---

diff --git a/lib/SQL/Abstract/Test.pm b/lib/SQL/Abstract/Test.pm
index 1d18f2d..9bc7a95 100644
--- a/lib/SQL/Abstract/Test.pm
+++ b/lib/SQL/Abstract/Test.pm
@@ -17,11 +17,9 @@ our $sql_differ; # keeps track of differing portion between SQLs
 our $tb = __PACKAGE__->builder;
 
 # Parser states for _recurse_parse()
-use constant {
-  PARSE_TOP_LEVEL => 0,
-  PARSE_IN_EXPR => 1,
-  PARSE_IN_PARENS => 2,
-};
+use constant PARSE_TOP_LEVEL => 0;
+use constant PARSE_IN_EXPR => 1;
+use constant PARSE_IN_PARENS => 2;
 
 # These SQL keywords always signal end of the current expression (except inside
 # of a parenthesized subexpression).