diagnostics: don’t truncate wrapped links

diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm
index 6ccc3d0..eadb18b 100644 (file)
--- 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);
        }