[monitoring-plugin-perl] Update Getopt.pm

 Module: monitoring-plugin-perl
 Branch: master
 Commit: b63c4b3ff97d5d9cda5cc9847947734e07d2c118
 Author: Paul Dugas <[email protected]>
   Date: Wed Apr 20 11:34:04 2016 -0400
    URL: https://www.monitoring-plugins.org/repositories/monitoring-plugin-perl/commit/?id=b63c4b3

Update Getopt.pm

Wrong case in ALRM regex.

---

 lib/Monitoring/Plugin/Getopt.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
   # Setup default alarm handler for alarm($ng->timeout) in plugin
   $SIG{ALRM} = sub {
     my $plugin = uc $self->{_attr}->{plugin};
-    $plugin =~ s/^check_//;
+    $plugin =~ s/^CHECK_//;
     $self->_die(
       sprintf("%s UNKNOWN - plugin timed out (timeout %ss)",
         $plugin, $self->timeout));