From 129766f1fe5dd7e8d77133747c252baf8cff3962 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Tue, 2 Jan 2007 21:44:36 +0000
Subject: [PATCH] stupid semicolon!

---
 FS/FS/cust_main.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm
index 9038d95a8..8603bde3d 100644
--- a/FS/FS/cust_main.pm
+++ b/FS/FS/cust_main.pm
@@ -1641,7 +1641,7 @@ sub num_ncancelled_pkgs {
 
 sub num_pkgs {
   my( $self, $sql ) = @_;
-  $sql = "AND $sql" if $sql && $sql !~ /^\s*$/ && $sql !~ /^\s*AND/i
+  $sql = "AND $sql" if $sql && $sql !~ /^\s*$/ && $sql !~ /^\s*AND/i;
   my $sth = dbh->prepare(
     "SELECT COUNT(*) FROM cust_pkg WHERE custnum = ? $sql"
   ) or die dbh->errstr;
-- 
2.20.1