--- nfo/perl/libs/SQL/Parser.pm	2002/11/13 18:50:41	1.1
+++ nfo/perl/libs/SQL/Parser.pm	2002/11/13 21:24:24	1.2
@@ -1502,7 +1502,7 @@
     }
     return 1 if $id =~ /^".+?"$/s; # QUOTED IDENTIFIER
     my $err  = "Bad table or column name '$id' ";        # BAD CHARS
-    if ($id =~ /\W/) {
+    if ($id !~ /\w|\./) {
         $err .= "has chars not alphanumeric or underscore!";
         return $self->do_err( $err );
     }