diff options
Diffstat (limited to 'lib/Nagios/Plugin/Getopt.pm')
-rw-r--r-- | lib/Nagios/Plugin/Getopt.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/Nagios/Plugin/Getopt.pm b/lib/Nagios/Plugin/Getopt.pm index b21dc6d..0cf8f73 100644 --- a/lib/Nagios/Plugin/Getopt.pm +++ b/lib/Nagios/Plugin/Getopt.pm | |||
@@ -242,9 +242,13 @@ sub _load_config_section | |||
242 | my ($section, $file, $flags) = @_; | 242 | my ($section, $file, $flags) = @_; |
243 | $section ||= $self->{_attr}->{plugin}; | 243 | $section ||= $self->{_attr}->{plugin}; |
244 | 244 | ||
245 | my $Config = Nagios::Plugin::Config->read($file); | 245 | my $Config; |
246 | eval { $Config = Nagios::Plugin::Config->read($file); }; | ||
247 | $self->_die($@) if ($@); #TODO: add test? | ||
246 | 248 | ||
247 | # TODO: is this check sane? Does --extra-opts=foo require a [foo] section? | 249 | # TODO: is this check sane? Does --extra-opts=foo require a [foo] section? |
250 | ## Nevertheless, if we die as UNKNOWN here we should do the same on default | ||
251 | ## file *added eval/_die above*. | ||
248 | $self->_die("Invalid section '$section' in config file '$file'") | 252 | $self->_die("Invalid section '$section' in config file '$file'") |
249 | unless exists $Config->{$section}; | 253 | unless exists $Config->{$section}; |
250 | 254 | ||