autodoc.pl: Add comment, missing space in warning

khwilliamson · khwilliamson · commit e931123a0389 · 2025-08-23T18:00:04.000-06:00
The warning came out with two words squished together
diff --git a/autodoc.pl b/autodoc.pl
@@ -7,6 +7,7 @@
 #
 #    pod/perlintern.pod
 #    pod/perlapi.pod
+# h flag means no details.
 
 my $api = "pod/perlapi.pod";
 my $intern = "pod/perlintern.pod";
@@ -2701,7 +2702,7 @@ ($destpod)
         next if $which == \%intern && $element->{flags} =~ /A/;
 
         if ($element->{docs_found}) {
-            warn "'$name' missing 'd' flag"
+            warn "'$name' missing 'd' flag "
                . where_from_string($element->{file}, $element->{line_num})
                                                if ! $element->{docs_expected};
         }

Original file line number	Diff line number	Diff line change
`@@ -7,6 +7,7 @@`
`7`	`7`	`#`
`8`	`8`	`# pod/perlintern.pod`
`9`	`9`	`# pod/perlapi.pod`
	`10`	`+# h flag means no details.`
`10`	`11`
`11`	`12`	`my $api = "pod/perlapi.pod";`
`12`	`13`	`my $intern = "pod/perlintern.pod";`
`@@ -2701,7 +2702,7 @@ ($destpod)`
`2701`	`2702`	`next if $which == \%intern && $element->{flags} =~ /A/;`
`2702`	`2703`
`2703`	`2704`	`if ($element->{docs_found}) {`
`2704`		`- warn "'$name' missing 'd' flag"`
	`2705`	`+ warn "'$name' missing 'd' flag "`
`2705`	`2706`	`. where_from_string($element->{file}, $element->{line_num})`
`2706`	`2707`	`if ! $element->{docs_expected};`
`2707`	`2708`	`}`