userdiff/perl: anchor "sub" and "package" patterns on the left

diff --git a/userdiff.c b/userdiff.c
index 1ff47977d549992ada8c1236187d4516b648ee7d..2cca0af8e26df9ab89805cd0cf65b66e0640e032 100644 (file)
--- a/userdiff.c
+++ b/userdiff.c
@@ -60,8 +60,8 @@ 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 */
         /* -- */