userdiff/perl: match full line of POD headers

[git.git] / userdiff.c

diff --git a/userdiff.c b/userdiff.c
index 2cca0af8e26df9ab89805cd0cf65b66e0640e032..32ead9654aeb2764eb33033a3b5a668904b64826 100644 (file)
--- a/userdiff.c
+++ b/userdiff.c
@@ -63,7 +63,7 @@ PATTERNS("perl",
         "^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_]*"