From 410ece2d77e913892a6fe92e8abbc9271b324dc1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 7 May 2001 15:36:04 +0000
Subject: [PATCH] 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
---
 FS/FS/Record.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
 
-- 
2.11.0