This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add comment explaining where terrible code comes from
[perl5.git] / dist / ExtUtils-ParseXS / t / 600-t-compat.t
index 6cc6678..90d3483 100644 (file)
@@ -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) = @_;