This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pppport: Print hints/warnings always.
authorKarl Williamson <khw@cpan.org>
Sun, 28 Jul 2019 21:51:39 +0000 (15:51 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:33 +0000 (16:39 -0600)
Previously they were displayed only if somethng else was.

(cherry picked from commit 27527f7a456d30199751a43bdba64212daad7e61)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/ppphbin

index bddd45b..5a6597d 100644 (file)
@@ -204,6 +204,10 @@ if (exists $opt{'api-info'}) {
             "(or #define NEED_${f}_GLOBAL).\n"              if exists $need{$f};
       print "Depends on: ", join(', ', @{$depends{$f}}), ".\n"
                                                          if exists $depends{$f};
+      $info++;
+    }
+
+    if (exists $hints{$f} || exists $warnings{$f}) {
       print "\n$hints{$f}" if exists $hints{$f};
       print "\nWARNING:\n$warnings{$f}" if exists $warnings{$f};
       $info++;