diff options
| author | ivan <ivan> | 2001-05-07 15:36:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-05-07 15:36:04 +0000 |
| commit | 410ece2d77e913892a6fe92e8abbc9271b324dc1 (patch) | |
| tree | 225dce6a2baeec7f4fd6859c6e5967904747dcd9 | |
| parent | f50e19a81e4f15d8ec15376d1674dfe6caad3d82 (diff) | |
start to track down
Insecure dependency in eval while running with -T switch at /usr/local/lib/site_perl/FS/Record.pm line 202.
errors
| -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 |