diff options
| author | Sven Nierlein <sven@nierlein.de> | 2016-04-02 19:53:58 +0200 |
|---|---|---|
| committer | Sven Nierlein <sven@nierlein.de> | 2016-04-02 19:53:58 +0200 |
| commit | 02f2f8a42fb976ea04ae8be54b5b027e757cefc3 (patch) | |
| tree | 0e33e3ecd77e02c17f2e5b5f2077638f46a8132c | |
| parent | 4e3103cb1c39e691bdd7dc16372eaa26ffe7d75e (diff) | |
| download | monitoring-plugin-perl-02f2f8a.tar.gz | |
make regular expression 5.8 compatible
\R was introduced in 5.10 too
| -rw-r--r-- | lib/Monitoring/Plugin/Functions.pm | 2 |
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); |