From: Norbert Buchmuller 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;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).