From 543cb4d548e42826e377c4790e28bb730d7ddf66 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 4 Aug 2010 18:50:08 +0000
Subject: [PATCH] fix scalar_sql not to return empty string for zero

---
 FS/FS/Record.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index cd5e2d4ca..44bc28d46 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -2817,7 +2817,8 @@ sub scalar_sql {
   my $sth = dbh->prepare($sql) or die dbh->errstr;
   $sth->execute
     or die "Unexpected error executing statement $sql: ". $sth->errstr;
-  $sth->fetchrow_arrayref->[0] || '';
+  my $scalar = $sth->fetchrow_arrayref->[0];
+  defined($scalar) ? $scalar : '';
 }
 
 =back
-- 
2.11.0