diff options
| author | Paul Dugas <paul@dugasenterprises.com> | 2016-04-20 11:34:04 -0400 |
|---|---|---|
| committer | Paul Dugas <paul@dugasenterprises.com> | 2016-04-20 11:34:04 -0400 |
| commit | b63c4b3ff97d5d9cda5cc9847947734e07d2c118 (patch) | |
| tree | 5a3b9029af3eda158785e747c05851e2f84036a6 | |
| parent | 02f2f8a42fb976ea04ae8be54b5b027e757cefc3 (diff) | |
| download | monitoring-plugin-perl-b63c4b3ff97d5d9cda5cc9847947734e07d2c118.tar.gz | |
Update Getopt.pm
Wrong case in ALRM regex.
| -rw-r--r-- | lib/Monitoring/Plugin/Getopt.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Monitoring/Plugin/Getopt.pm b/lib/Monitoring/Plugin/Getopt.pm index 1740830..19ad7fe 100644 --- a/lib/Monitoring/Plugin/Getopt.pm +++ b/lib/Monitoring/Plugin/Getopt.pm | |||
| @@ -445,7 +445,7 @@ sub getopts | |||
| 445 | # Setup default alarm handler for alarm($ng->timeout) in plugin | 445 | # Setup default alarm handler for alarm($ng->timeout) in plugin |
| 446 | $SIG{ALRM} = sub { | 446 | $SIG{ALRM} = sub { |
| 447 | my $plugin = uc $self->{_attr}->{plugin}; | 447 | my $plugin = uc $self->{_attr}->{plugin}; |
| 448 | $plugin =~ s/^check_//; | 448 | $plugin =~ s/^CHECK_//; |
| 449 | $self->_die( | 449 | $self->_die( |
| 450 | sprintf("%s UNKNOWN - plugin timed out (timeout %ss)", | 450 | sprintf("%s UNKNOWN - plugin timed out (timeout %ss)", |
| 451 | $plugin, $self->timeout)); | 451 | $plugin, $self->timeout)); |