autodoc: Properly take into account pTHX

Before this patch, it wasn't considering the thread context when
deciding whether two forms of similar functions had the same signature
or not; hence not displaying things when it should have.

1 files changed, 9 insertions, 6 deletions

diff --git a/autodoc.pl b/autodoc.pl
index 38c17ba523..4a0c26d7c9 100644
--- a/autodoc.pl
+++ b/autodoc.pl
@@ -1108,6 +1108,15 @@ sub docout ($$$) { # output the docs for one function
         }
         else {
 
+            # Add the thread context formal parameter on expanded-out names
+            for my $item (@items) {
+                unshift $item->{args}->@*, (($item->{args}->@*)
+                                            ? "pTHX_"
+                                            : "pTHX")
+                                                   if $item->{flags} !~ /T/
+                                                   && $item->{name} =~ /^Perl_/;
+            }
+
             # Look through all the items in this entry.  If all have the same
             # return type and arguments, only the main entry is displayed.
             # Also, find the longest return type and longest name so that if
@@ -1150,12 +1159,6 @@ sub docout ($$$) { # output the docs for one function
                 my $name = $item->{name};
                 my $item_flags = $item->{flags};
 
-                # Display the thread context formal parameter on an expanded
-                # out name
-                if ($item_flags !~ /T/ && $name =~ /^Perl_/) {
-                    unshift @args, (@args) ? "pTHX_" : "pTHX";
-                }
-
                 # The return type
                 print $fh (" " x $indent), $ret_type;