diff options
author | ivan <ivan> | 2001-05-07 15:42:02 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-05-07 15:42:02 +0000 |
commit | 38e969ecf93f56c05e06bbcd24e9bd1ddf56d709 (patch) | |
tree | b483d8e8b6c3738380d5ec8eca1647f0d72ba10a | |
parent | 410ece2d77e913892a6fe92e8abbc9271b324dc1 (diff) |
tyop
-rw-r--r-- | FS/FS/Record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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 |