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
authorSteffen Mueller <smueller@cpan.org>
Sun, 13 Feb 2011 10:22:15 +0000 (11:22 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:49 +0000 (20:54 +0200)
... and it is not brought by the stork.

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) = @_;
 
 sub _process_typemaps {
   my ($tmap, $pwd) = @_;