summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorSven Nierlein <sven@nierlein.de>2016-04-02 19:53:58 +0200
committerSven Nierlein <sven@nierlein.de>2016-04-02 19:53:58 +0200
commit02f2f8a42fb976ea04ae8be54b5b027e757cefc3 (patch)
tree0e33e3ecd77e02c17f2e5b5f2077638f46a8132c /lib
parent4e3103cb1c39e691bdd7dc16372eaa26ffe7d75e (diff)
downloadmonitoring-plugin-perl-02f2f8a42fb976ea04ae8be54b5b027e757cefc3.tar.gz
make regular expression 5.8 compatible
\R was introduced in 5.10 too
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 d8ebdad..93fec5d 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 =~ /^\s*\R/mxs; 122 $output .= " - " unless $message =~ /^\s*\n/mxs;
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);