Parent Directory
| 
Revision Log
| 
Patch
| revision 1.3 by joko, Mon Dec 2 05:51:58 2002 UTC | revision 1.4 by joko, Mon Dec 2 05:53:54 2002 UTC | |
|---|---|---|
| # | Line 1558 sub IDENTIFIER { | Line 1558 sub IDENTIFIER { |
| 1558 | } | } |
| 1559 | return 1 if $id =~ /^".+?"$/s; # QUOTED IDENTIFIER | return 1 if $id =~ /^".+?"$/s; # QUOTED IDENTIFIER |
| 1560 | my $err = "Bad table or column name '$id' "; # BAD CHARS | my $err = "Bad table or column name '$id' "; # BAD CHARS |
| 1561 | if ($id =~ /\W/) { | if ($id !~ /\w|\./) { |
| 1562 | $err .= "has chars not alphanumeric or underscore!"; | $err .= "has chars not alphanumeric or underscore!"; |
| 1563 | return $self->do_err( $err ); | return $self->do_err( $err ); |
| 1564 | } | } |
|
||||||||
| MailToCvsAdmin">MailToCvsAdmin | ViewVC Help |
| Powered by ViewVC 1.1.26 |  |