userdiff/perl: match full line of POD headers

[thirdparty/git.git] / userdiff.c

diff --git a/userdiff.c b/userdiff.c
index 1ff47977d549992ada8c1236187d4516b648ee7d..32ead9654aeb2764eb33033a3b5a668904b64826 100644 (file)
--- a/userdiff.c
+++ b/userdiff.c
@@ -60,10 +60,10 @@ PATTERNS("pascal",
         "|[-+0-9.e]+|0[xXbB]?[0-9a-fA-F]+"
         "|<>|<=|>=|:=|\\.\\."),
 PATTERNS("perl",
-        "^[ \t]*package .*;\n"
-        "^[ \t]*sub .* \\{\n"
+        "^package .*;\n"
+        "^sub .* \\{\n"
         "^[A-Z]+ \\{\n"        /* BEGIN, END, ... */
-        "^=head[0-9] ",        /* POD */
+        "^=head[0-9] .*",      /* POD */
         /* -- */
         "[[:alpha:]_'][[:alnum:]_']*"
         "|0[xb]?[0-9a-fA-F_]*"