diff options
| author | Matthew Horsfall <wolfsage@gmail.com> | 2011-07-07 23:58:03 -0400 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-08 09:10:46 -0700 |
| commit | c0d3a21f46f3cadad5c0a3742b410670d83e10a4 (patch) | |
| tree | 56e3ef58cf842075d9ab5167e47d7b14872077fb /lib/diagnostics.pm | |
| parent | 7c4c6e7cb76c912fc1c4218cf14243fc37bd530a (diff) | |
| download | perl-c0d3a21f46f3cadad5c0a3742b410670d83e10a4.tar.gz | |
Allow items in perldiag.pod to match warnings when they have periods at the end
Diffstat (limited to 'lib/diagnostics.pm')
| -rw-r--r-- | lib/diagnostics.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index b3464488d7..f9308b6c50 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -407,6 +407,9 @@ my %msg; # strip formatting directives from =item line $header =~ s/[A-Z]<(.*?)>/$1/g; + # Since we strip "\.\n" when we search a warning, strip it here as well + $header =~ s/\.?$//; + my @toks = split( /(%l?[dx]|%c|%(?:\.\d+)?[fs])/, $header ); if (@toks > 1) { my $conlen = 0; |