diff options
| author | ivan <ivan> | 2002-12-21 04:31:08 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-12-21 04:31:08 +0000 |
| commit | ee0ef4d6e0e074ff084b87ae31c83541cfe8be3b (patch) | |
| tree | 26d0a01fb0910c0ca40ec46d2064a6081b773c64 | |
| parent | a776d51939b1e70fe45eaa7744405ff5a074e246 (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 af9028014..4b8243b98 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -270,7 +270,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; |