summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorPaul Dugas <paul@dugas.cc>2016-04-02 10:06:25 -0400
committerPaul Dugas <paul@dugas.cc>2016-04-02 10:06:25 -0400
commitf02cb4e0cce374d92e6c2702fe113a3b6c81e304 (patch)
tree741c716b3ec1eb452fd1a6a1527abe4ff7081355 /lib
parent471fef88ab046a055df95f607704557e07d56874 (diff)
downloadmonitoring-plugin-perl-f02cb4e0cce374d92e6c2702fe113a3b6c81e304.tar.gz
Fixed regex in plugin_exit() that handles hyphen for LONGOUTPUT.
Added tests.
Diffstat (limited to 'lib')
-rw-r--r--lib/Monitoring/Plugin/Functions.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Monitoring/Plugin/Functions.pm b/lib/Monitoring/Plugin/Functions.pm
index a19db49..5946c7d 100644
--- a/lib/Monitoring/Plugin/Functions.pm
+++ b/lib/Monitoring/Plugin/Functions.pm
@@ -119,7 +119,7 @@ sub plugin_exit {
119 # Setup output 119 # Setup output
120 my $output = "$STATUS_TEXT{$code}"; 120 my $output = "$STATUS_TEXT{$code}";
121 if (defined $message && $message ne '') { 121 if (defined $message && $message ne '') {
122 $output .= " - " unless $message =~ /^[ \f\r\t\w]*\n/; 122 $output .= " - " unless $message =~ /^\h*\R/;
123 $output .= $message; 123 $output .= $message;
124 } 124 }
125 my $shortname = ($arg->{plugin} ? $arg->{plugin}->shortname : undef); 125 my $shortname = ($arg->{plugin} ? $arg->{plugin}->shortname : undef);