- workaround over static markers for the .. operator

Changed files:
    perl.prov -> 1.2

diff --git a/perl.prov b/perl.prov
index eb4f5846671fd32652c8bdabbfcde2b3b40da844..f36ca18c609eb05080ec3aa94a6946419cc44da6 100644 (file)
--- a/perl.prov
+++ b/perl.prov
@@ -66,8 +66,8 @@ sub process_file {
 
                # skip the documentation
                next
-                 if m/^=(?:head1|head2|pod|item|begin|for|over)/
-                 ...  m/^=(?:cut|end)/;
+                 if m/^=(?:head1|head2|pod|item|begin|for|over)\b/
+                    ... ( m/^=(?:cut|end)\b/ || $. == 1 );
 
                # skip the data section
                last if m/^__(?:DATA|END)__$/;