diff options
author | Mark Wells <mark@freeside.biz> | 2015-06-18 17:15:50 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-06-18 17:18:36 -0700 |
commit | e6443cfd58409903ab5d487c5248e0a22906dbd7 (patch) | |
tree | 47c64a5e3e2bac56d904ab87157ae85806332f72 /FS/FS/part_pkg.pm | |
parent | 513bf642296729d5ed50f78ed2278f7b922593dc (diff) |
silence many spurious warnings from part_pkg options
Diffstat (limited to 'FS/FS/part_pkg.pm')
-rw-r--r-- | FS/FS/part_pkg.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 4407ec6..0e9ee05 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -1392,6 +1392,11 @@ sub option { my %plandata = map { /^(\w+)=(.*)$/; ( $1 => $2 ); } split("\n", $self->get('plandata') ); return $plandata{$opt} if exists $plandata{$opt}; + + # check whether the option is defined in plan info (if so, don't warn) + if (exists $plans{ $self->plan }->{fields}->{$opt}) { + return ''; + } cluck "WARNING: (pkgpart ". $self->pkgpart. ") Package def option $opt ". "not found in options or plandata!\n" unless $ornull; |