Fixed unduly generated line

The hack is that it's only generated if it's in the first 5 lines of a file. However, it would be much better if we looked at the file as a whole. Closes #2455

Author: JJ

doc/Language/pod.pod6

@@ -4,9 +4,9 @@
 
 =SUBTITLE An easy-to-use markup language
 
-Perl 6 pod is an easy-to-use markup language. Pod can be used for writing
-language documentation, for documenting programs and modules, as well as for
-other types of document composition.
+Perl 6 pod is an easy-to-use markup language. Pod can be used for
+writing language documentation, for documenting programs and modules, as
+well as for other types of document composition.
 
 Every Pod document has to begin with C<=begin pod> and end with C<=end pod>.
 Everything between these two delimiters will be processed and used to generate

util/manage-page-order.p6

@@ -181,6 +181,7 @@ sub write-Language-files() {
             my $to = "$todir/{$page-order}-{$fname}";
             say "DEBUG: to '$to'" if $debug;
             my $fh = open $to, :w;
+	    my $line-no = 1;
             for $from.IO.lines -> $line is copy {
                 if $line ~~ /^ \h* '=begin' \h* pod / {
                     # check any existing :page-order entry
@@ -189,12 +190,17 @@ sub write-Language-files() {
                     }
                     else {
                         #$fh.say: "$line :page-order<{$page-order}>";
-                        $fh.say: "# THIS FILE IS AUTO-GENERATED--ALL EDITS WILL BE LOST";
-                        $fh.say: $line ~ " :link<$key-fname>";
-                        #$fh.say: "=comment THIS FILE IS AUTO-GENERATED--ALL EDITS WILL BE LOST";
+			if $line-no < 5 {
+                            $fh.say: "# THIS FILE IS AUTO-GENERATED--ALL EDITS WILL BE LOST";
+                            $fh.say: $line ~ " :link<$key-fname>";
+                            #$fh.say: "=comment THIS FILE IS AUTO-GENERATED--ALL EDITS WILL BE LOST";
+			} else {
+			    $fh.say: $line;
+			}
                     }
                     next;
                 }
+		$line-no++;
                 $fh.say: $line;
             }
             $fh.close;