From: ivan <ivan>
Date: Sat, 21 Dec 2002 04:31:05 +0000 (+0000)
Subject: kludge around uninitialized value errors
X-Git-Tag: freeside_1_5_0pre1~80
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=a6339c3ac72353911a0b7f585b758a4b6aada899

kludge around uninitialized value errors
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 2062eb9ba..83af6ff52 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -266,7 +266,11 @@ sub insert {
       #    qsearch('export_svc', { 'exportnum' => $part_export->exportnum });
       #}
 
-      my $nodomain = $exports->{$part_export->exporttype}{'nodomain'};
+      #my $nodomain = $exports->{$part_export->exporttype}{'nodomain'};
+      #silly kludge to avoid uninitialized value errors
+      my $nodomain = exists( $exports->{$part_export->exporttype}{'nodomain'} )
+                     ? $exports->{$part_export->exporttype}{'nodomain'}
+                     : '';
       if ( $nodomain =~ /^Y/i ) {
         $conflict_user_svcpart{$_} = $part_export->exportnum
           foreach @svcparts;