Add comment explaining where terrible code comes from

... and it is not brought by the stork.

diff --git a/dist/ExtUtils-ParseXS/t/600-t-compat.t b/dist/ExtUtils-ParseXS/t/600-t-compat.t
index 6cc6678..90d3483 100644 (file)
--- a/dist/ExtUtils-ParseXS/t/600-t-compat.t
+++ b/dist/ExtUtils-ParseXS/t/600-t-compat.t
@@ -93,7 +93,10 @@ foreach my $test (@tests) {
 }
 
 
-
+# The code below is a reproduction of what the pre-ExtUtils::Typemap
+# typemap-parsing/handling code in ExtUtils::ParseXS looked like. For
+# bug-compatibility, we want to produce the same data structures as that
+# code as much as possible.
 sub _process_typemaps {
   my ($tmap, $pwd) = @_;