X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FRecord.pm;h=f88be8b00f80639a980148c0bc774f8662656114;hb=08cc56589e213542a72060234bdad49fbfeb67c2;hp=426bea2f8a9d4f8b4a74f428ecc822826961f343;hpb=410ece2d77e913892a6fe92e8abbc9271b324dc1;p=freeside.git

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