[monitoring-plugin-perl] use case insensitive regex

Sven Nierlein <[email protected]>
Newsgroups gmane.network.nagios.cvs
Message-ID <20160622141007.E36742006294__47755.8984923691$1466604632$gmane$org@orwell.monitoring-plugins.org>
 Module: monitoring-plugin-perl
 Branch: master
 Commit: c79f65a91e58b84629c2c76be49e47fc34e274a6
 Author: Sven Nierlein <[email protected]>
   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));
lmpx.com only provides a reader for public news (NNTP) servers. It is not affiliated with the servers or forums shown here and is not responsible for the content of articles, which is written by their respective authors.