Insecure dependency in eval while running with -T switch at /usr/local/lib/site_perl/FS/Record.pm line 202.
errors
sub qsearch {
my($table, $record, $select, $extra_sql ) = @_;
sub qsearch {
my($table, $record, $select, $extra_sql ) = @_;
+ $table =~ /^([\w\_])+$/ or die "Illegal table: $table";
+ $table = $1;
$select ||= '*';
my $dbh = dbh;
$select ||= '*';
my $dbh = dbh;
-$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 $