--- nfo/perl/libs/SQL/Parser.pm	2002/12/02 05:51:58	1.3
+++ nfo/perl/libs/SQL/Parser.pm	2002/12/02 05:53:54	1.4
@@ -1558,7 +1558,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 );
     }