diff options
| author | ivan <ivan> | 2002-12-21 04:31:05 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-12-21 04:31:05 +0000 |
| commit | a6339c3ac72353911a0b7f585b758a4b6aada899 (patch) | |
| tree | 936cf70270c7aef1ee3dde38204de924f64e9a60 | |
| parent | 587a93086f6d47881d95462d292cf7d260a9d6a1 (diff) | |
kludge around uninitialized value errors
| -rw-r--r-- | FS/FS/svc_acct.pm | 6 |
1 files changed, 5 insertions, 1 deletions
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; |