diff options
| -rw-r--r-- | FS/FS/Record.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 2e2612e35..29e5322ef 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -2909,7 +2909,8 @@ sub scalar_sql { my $sth = dbh->prepare($sql) or die dbh->errstr; $sth->execute(@_) or die "Unexpected error executing statement $sql: ". $sth->errstr; - my $scalar = $sth->fetchrow_arrayref->[0]; + my $row = $sth->fetchrow_arrayref or return ''; + my $scalar = $row->[0]; defined($scalar) ? $scalar : ''; } |