--- trunk/lib/SQLSession/Action/DoSQL.pm 2007/01/25 20:28:42 66 +++ trunk/lib/SQLSession/Action/DoSQL.pm 2007/01/25 21:16:06 70 @@ -76,7 +76,7 @@ warn "original SQL:\t$sql"; - $sql =~ s/\b($w)\b/uc($1)/egis; + $sql =~ s/([\b^'])($w)\1/uc($2)/egis; warn "canonicalize SQL:\t$sql";