diff options
| author | Richard Leitner <me@g0hl1n.net> | 2013-08-23 08:43:17 +0200 |
|---|---|---|
| committer | Richard Leitner <me@g0hl1n.net> | 2013-08-23 08:43:17 +0200 |
| commit | 1cd8d1c52cbd47121f344c4074aec84653f412ce (patch) | |
| tree | 2502c121e46197e54b788f692de3f6fd2ec35d97 /lib | |
| parent | e70d62aaf96830a6480b147e6c90c30aeef31a54 (diff) | |
| download | monitoring-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')
| -rw-r--r-- | lib/Nagios/Plugin/Getopt.pm | 2 |
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 | } |