diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 01:20:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 01:20:39 +0000 |
| commit | 9a7dcd9c47ba9757eae19d3e3965b387f5197198 (patch) | |
| tree | 528507e78c33e9fafd66c09dfe446256af25d29f /lib/diagnostics.pm | |
| parent | a67e862a325388c91a8a3eee7f587636c9a77259 (diff) | |
| download | perl-9a7dcd9c47ba9757eae19d3e3965b387f5197198.tar.gz | |
partly fix perldiag regressions identified by Tom Christiansen
p4raw-id: //depot/perl@4709
Diffstat (limited to 'lib/diagnostics.pm')
| -rwxr-xr-x | lib/diagnostics.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index d405e3673e..aff9b55786 100755 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -333,7 +333,7 @@ EOFUNC # strip formatting directives in =item line ($header = $1) =~ s/[A-Z]<(.*?)>/$1/g; - if ($header =~ /%[sd]/) { + if ($header =~ /%[csd]/) { $rhs = $lhs = $header; #if ($lhs =~ s/(.*?)%d(?!%d)(.*)/\Q$1\E\\d+\Q$2\E\$/g) { if ($lhs =~ s/(.*?)%d(?!%d)(.*)/\Q$1\E\\d+\Q$2\E/g) { @@ -346,6 +346,7 @@ EOFUNC $lhs =~ s/\377//g; $lhs =~ s/\.\*\?$/.*/; # Allow %s at the end to eat it all } + $lhs =~ s/\\%c/./g; $transmo .= " s{^$lhs}\n {\Q$rhs\E}s\n\t&& return 1;\n"; } else { $transmo .= " m{^\Q$header\E} && return 1;\n"; |