This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/ppptools.pl: Yet another instance of an old flag
authorKarl Williamson <khw@cpan.org>
Thu, 11 Jul 2019 04:32:55 +0000 (22:32 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:28 +0000 (16:39 -0600)
THe meanings of various flags changed a couple of months ago.  This is
the final (AFAICT) one to update.

(cherry picked from commit f03de555ac51a65231b9116f35506a751f5d559b)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/ppptools.pl

index baa4c4e..77e80cb 100644 (file)
@@ -344,7 +344,7 @@ sub make_prototype
   my $f = shift;
   my @args = map { "@$_" } @{$f->{args}};
   my $proto;
-  my $pTHX_ = exists $f->{flags}{n} ? "" : "pTHX_ ";
+  my $pTHX_ = exists $f->{flags}{T} ? "" : "pTHX_ ";
   $proto = "$f->{ret} $f->{name}" . "($pTHX_" . join(', ', @args) . ')';
   return $proto;
 }