--- trunk/lib/SQLSession/Utils.pm 2007/02/16 22:20:41 99 +++ trunk/lib/SQLSession/Utils.pm 2007/09/08 11:58:41 116 @@ -30,9 +30,9 @@ return "\n" . uc($sql) . $suff; } - $sql =~ s/(\s*)(select|from|inner\s+join|order\s+by|where|group\s+by|having|limit|offset)(\s+)/sql_uc($1,$2,$3)/egis; + $sql =~ s/(\s*)(select|from|inner\s+join|order\s+by|where|group\s+by|having|limit|offset|union)(\s+)/sql_uc($1,$2,$3)/egis; - warn ">>>> canonicalize SQL:\n$sql"; + warn ">>>> canonicalize SQL:\n$sql\n"; return $sql; }