summaryrefslogtreecommitdiffstats
path: root/lib/Nagios/Plugin
diff options
context:
space:
mode:
authorRichard Leitner <me@g0hl1n.net>2013-08-23 08:43:17 +0200
committerRichard Leitner <me@g0hl1n.net>2013-08-23 08:43:17 +0200
commit1cd8d1c52cbd47121f344c4074aec84653f412ce (patch)
tree2502c121e46197e54b788f692de3f6fd2ec35d97 /lib/Nagios/Plugin
parente70d62aaf96830a6480b147e6c90c30aeef31a54 (diff)
downloadmonitoring-plugin-perl-1cd8d1c52cbd47121f344c4074aec84653f412ce.tar.gz
Fixed rt.cpan.org bug #77399, No space allowed in section names
Now allow the section names to contain all characters except "@"
Diffstat (limited to 'lib/Nagios/Plugin')
-rw-r--r--lib/Nagios/Plugin/Getopt.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Nagios/Plugin/Getopt.pm b/lib/Nagios/Plugin/Getopt.pm
index f910c4b..22ff642 100644
--- a/lib/Nagios/Plugin/Getopt.pm
+++ b/lib/Nagios/Plugin/Getopt.pm
@@ -338,7 +338,7 @@ sub _process_extra_opts
338 my $file = ''; 338 my $file = '';
339 339
340 # Parse section@file 340 # Parse section@file
341 if ($extopts =~ m/^(\w*)@(.*?)\s*$/) { 341 if ($extopts =~ m/^([^@]*)@(.*?)\s*$/) {
342 $section = $1; 342 $section = $1;
343 $file = $2; 343 $file = $2;
344 } 344 }