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