diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-08-12 00:27:14 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-12 00:27:14 -0700 |
| commit | 98e27b5aefdacc26ef99eb80c0fd96a224f7f01c (patch) | |
| tree | 950ebc35d948e68743a876b748eeb25b6712cedd /lib/diagnostics.pm | |
| parent | aca7040a006a60a8db9343e9629efe6cb356ff77 (diff) | |
| download | perl-98e27b5aefdacc26ef99eb80c0fd96a224f7f01c.tar.gz | |
diagnostics: don’t truncate wrapped links
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 6ccc3d02af..eadb18b206 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); } |