X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fsendmail.import;h=ef745fc46ef94252cb4e33c020e9a24acc97b111;hp=b137433d98ccb96c06aca7b72c752c741288381a;hb=f73a37bd1dfd6f8e5cd497b8ac2843a7b8b1247b;hpb=cd7e487f34c2de4768670aef01f096d8530fb057

diff --git a/bin/sendmail.import b/bin/sendmail.import
old mode 100644
new mode 100755
index b137433d9..ef745fc46
--- 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,