From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 25 Mar 2016 19:29:35 +0000 (-0700)
Subject: avoid uninitialized value errors on upgrade
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=f4ee374e9bbb313234278c7231c046f8e07086f0;hp=da9ab0af53220f6f1cb0e4d31ce7de81dd591783;p=freeside.git

avoid uninitialized value errors on upgrade
---

diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm
index 2a480f872..eb2587b34 100644
--- a/FS/FS/Upgrade.pm
+++ b/FS/FS/Upgrade.pm
@@ -203,8 +203,9 @@ sub upgrade_overlimit_groups {
 sub upgrade_invoice_from {
   my ($conf, $agentnum, $agentonly) = @_;
   if (
-      (!$conf->exists('invoice_from_name',$agentnum,$agentonly)) && 
-      ($conf->config('invoice_from',$agentnum,$agentonly) =~ /\<(.*)\>/)
+          ! $conf->exists('invoice_from_name',$agentnum,$agentonly)
+       && $conf->exists('invoice_from',$agentnum,$agentonly)
+       && $conf->config('invoice_from',$agentnum,$agentonly) =~ /\<(.*)\>/
   ) {
     my $realemail = $1;
     $realemail =~ s/^\s*//; # remove leading spaces