From 38606efd583311cff2703090d7c9e3de550522b1 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 10 May 2004 10:01:38 +0000
Subject: [PATCH] properly nested greps

---
 bin/sendmail.import | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/bin/sendmail.import b/bin/sendmail.import
index b137433d9..ef745fc46 100644
--- a/bin/sendmail.import
+++ b/bin/sendmail.import
@@ -144,7 +144,9 @@ sub svcnum_or_literal {
   my $svc_domain = qsearchs('svc_domain', { 'domain' => $domain } );
   my $domsvc = $svc_domain ? $svc_domain->svcnum : '';
 
-  my @svc_acct = grep { grep { $_->cust_svc->svcpart == $_ } @svcpart }
+  my @svc_acct = grep { my $svc_acct = $_;
+                        grep { $svc_acct->cust_svc->svcpart == $_ } @svcpart
+                      }
                    qsearch('svc_acct', {
                      'username' => $username,
                      'domsvc'   => $domsvc,
-- 
2.11.0