From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 12 Aug 2013 07:27:14 +0000 (-0700)
Subject: diagnostics: don’t truncate wrapped links
X-Git-Tag: upstream/5.20.0~2416
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=98e27b5aefdacc26ef99eb80c0fd96a224f7f01c;p=platform%2Fupstream%2Fperl.git

diagnostics: don’t truncate wrapped links
---

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 6ccc3d0..eadb18b 100644
--- a/lib/diagnostics.pm
+++ b/lib/diagnostics.pm
@@ -321,7 +321,7 @@ my %msg;
     while (<POD_DIAG>) {
 
 	sub _split_pod_link {
-	    $_[0] =~ '(?:([^|]*)\|)?([^/]*)(?:/("?)(.*)\3)?';
+	    $_[0] =~ m'(?:([^|]*)\|)?([^/]*)(?:/("?)(.*)\3)?'s;
 	    ($1,$2,$4);
 	}