mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

userdiff/perl: catch BEGIN/END/... and POD as headers

Browse Source 
Signed-off-by: Junio C Hamano <gitster@pobox.com>
This commit is contained in:
Junio C Hamano
2010-12-27 09:19:38 -08:00
parent 71a5d4bc0e
commit a25e47377d
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
userdiff.c
View File

@ -63,7 +63,9 @@ PATTERNS("pascal",
"|[^[:space:]]|[\x80-\xff]+"), "|[^[:space:]]|[\x80-\xff]+"),
PATTERNS("perl", PATTERNS("perl",
"^[ \t]*package .*;\n" "^[ \t]*package .*;\n"
"^[ \t]*sub .* \\{", "^[ \t]*sub .* \\{\n"
"^[A-Z]+ \\{\n" /* BEGIN, END, ... */
"^=head[0-9] ", /* POD */
/* -- */ /* -- */
"[[:alpha:]_'][[:alnum:]_']*" "[[:alpha:]_'][[:alnum:]_']*"
"|0[xb]?[0-9a-fA-F_]*" "|0[xb]?[0-9a-fA-F_]*"