diff options
| author | Robin Barker <RMBarker@cpan.org> | 2001-06-07 14:01:06 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-07 12:17:51 +0000 |
| commit | 5cd5c4227e98c1aba00f926c07010f476cdbbf55 (patch) | |
| tree | f0bec333bfccf1c69ec387db18c2c87d6bdd2954 /lib/diagnostics.pm | |
| parent | 0addb26a8d52b778aa7c6491e34f40d84fccf4d1 (diff) | |
| download | perl-5cd5c4227e98c1aba00f926c07010f476cdbbf55.tar.gz | |
Re: [PATCH perl@10439] diagnostics and long C<=item>s
Message-Id: <200106071201.NAA13627@tempest.npl.co.uk>
p4raw-id: //depot/perl@10470
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index f3e60f5897..b027b74dc3 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -343,9 +343,16 @@ my %msg; next; } + if( $for_item ) { $header = $for_item; undef $for_item } + else { + $header = $1; + while( $header =~ /[;,]\z/ ) { + <POD_DIAG> =~ /^\s*(.*?)\s*\z/; + $header .= ' '.$1; + } + } + # strip formatting directives in =item line - $header = $for_item || $1; - undef $for_item; $header =~ s/[A-Z]<(.*?)>/$1/g; if ($header =~ /%[csd]/) { |