Module: monitoring-plugin-perl Branch: master Commit: 4e3103cb1c39e691bdd7dc16372eaa26ffe7d75e Author: Sven Nierlein <s...@nierlein.de> Date: Sat Apr 2 19:49:11 2016 +0200 URL: https://www.monitoring-plugins.org/repositories/monitoring-plugin-perl/commit/?id=4e3103c
make regular expression 5.8 compatible --- lib/Monitoring/Plugin/Functions.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/Monitoring/Plugin/Functions.pm b/lib/Monitoring/Plugin/Functions.pm index 5946c7d..d8ebdad 100644 --- a/lib/Monitoring/Plugin/Functions.pm +++ b/lib/Monitoring/Plugin/Functions.pm @@ -119,7 +119,7 @@ sub plugin_exit { # Setup output my $output = "$STATUS_TEXT{$code}"; if (defined $message && $message ne '') { - $output .= " - " unless $message =~ /^\h*\R/; + $output .= " - " unless $message =~ /^\s*\R/mxs; $output .= $message; } my $shortname = ($arg->{plugin} ? $arg->{plugin}->shortname : undef);