Skip to content
This repository was archived by the owner on Aug 10, 2025. It is now read-only.

Commit f78dc63

Browse files
authored
Improve check for PPGEN commands inside paragraph (#1315)
Rather than only check for a line beginning with a dot (inside a <p> tag), check for a more PPGEN-like pattern, to avoid false-positives such as a paragraph beginning with an ellipsis.
1 parent 9824b1d commit f78dc63

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/lib/ppvchecks/pphtml.pl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -117,8 +117,8 @@ sub runProgram {
117117
if ( $line =~ /&amp;amp/ ) {
118118
printf LOGFILE ( "%d:0 Ampersand: %s\n", $count, $line );
119119
}
120-
if ( $line =~ /<p>\./ ) {
121-
printf LOGFILE ( "%d:0 Possible PPG command: %s\n", $count, $line );
120+
if ( $line =~ /<p>\.[a-z]{2}/ ) {
121+
printf LOGFILE ( "%d:0 Possible PPGEN command: %s\n", $count, $line );
122122
}
123123
if ( $line =~ /\`/ ) {
124124
printf LOGFILE ( "%d:0 Tick-mark check: %s\n", $count, $line );

0 commit comments

Comments
 (0)