diff options
| -rw-r--r-- | FS/FS/Record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 426bea2f8..f88be8b00 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -169,7 +169,7 @@ objects. sub qsearch { my($table, $record, $select, $extra_sql ) = @_; - $table =~ /^([\w\_])+$/ or die "Illegal table: $table"; + $table =~ /^([\w\_]+)$/ or die "Illegal table: $table"; $table = $1; $select ||= '*'; my $dbh = dbh; @@ -915,7 +915,7 @@ sub DESTROY { return; } =head1 VERSION -$Id: Record.pm,v 1.15 2001-05-07 15:36:04 ivan Exp $ +$Id: Record.pm,v 1.16 2001-05-07 15:42:02 ivan Exp $ =head1 BUGS |