fixed line-break transformation

[scpubgit/System-Introspector-Report.git] / lib / System / Introspector / Report / Publish / MediaWiki / Producer.pm

diff --git a/lib/System/Introspector/Report/Publish/MediaWiki/Producer.pm b/lib/System/Introspector/Report/Publish/MediaWiki/Producer.pm
index db40895..e5861ab 100644 (file)
--- a/lib/System/Introspector/Report/Publish/MediaWiki/Producer.pm
+++ b/lib/System/Introspector/Report/Publish/MediaWiki/Producer.pm
@@ -48,7 +48,9 @@ my $_prepare_column_content = sub {
   my ($content) = @_;
   return ''
     unless defined $content;
-  my @lines = split m{\n}, $content;
+  my @lines = split qr{\n}, $content;
+  return ''
+    unless @lines;
   if (@lines == 1) {
     return $content;
   }