[monitoring-plugin-perl] use case insensitive regex

Sven Nierlein git at monitoring-plugins.org
Wed Jun 22 16:10:07 CEST 2016


 Module: monitoring-plugin-perl
 Branch: master
 Commit: c79f65a91e58b84629c2c76be49e47fc34e274a6
 Author: Sven Nierlein <sven at nierlein.de>
   Date: Wed Jun 22 16:07:42 2016 +0200
    URL: https://www.monitoring-plugins.org/repositories/monitoring-plugin-perl/commit/?id=c79f65a

use case insensitive 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 9e68301..106600a 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[-_]//i;
     $self->_die(
       sprintf("%s UNKNOWN - plugin timed out (timeout %ss)",
         $plugin, $self->timeout));



More information about the Commits mailing list