From 8549f708d6eda70fbc7463db5dc24e00467e5547 Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Mon, 23 Feb 2015 19:13:33 -0800 Subject: [PATCH 1/1] silence a warning --- FS/FS/cust_bill_pkg.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/FS/FS/cust_bill_pkg.pm b/FS/FS/cust_bill_pkg.pm index 2aa2a6fab..298e234ec 100644 --- a/FS/FS/cust_bill_pkg.pm +++ b/FS/FS/cust_bill_pkg.pm @@ -1014,10 +1014,12 @@ sub usage { my $sql = 'SELECT SUM(COALESCE(amount,0)) FROM cust_bill_pkg_detail '. ' WHERE billpkgnum = '. $self->billpkgnum; - if ($classnum =~ /^(\d+)$/) { - $sql .= " AND classnum = $1"; - } elsif (defined($classnum) and $classnum eq '') { - $sql .= " AND classnum IS NULL"; + if (defined $classnum) { + if ($classnum =~ /^(\d+)$/) { + $sql .= " AND classnum = $1"; + } elsif (defined($classnum) and $classnum eq '') { + $sql .= " AND classnum IS NULL"; + } } my $sth = dbh->prepare($sql) or die dbh->errstr; -- 2.11.0