This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ppport.h: --api-info Reorder output of hints/depends info
authorKarl Williamson <khw@cpan.org>
Wed, 7 Aug 2019 01:01:12 +0000 (19:01 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:27 +0000 (16:51 -0600)
It looks better after everything else

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

index bc8486b..968ed7f 100644 (file)
@@ -278,14 +278,6 @@ if (exists $opt{'api-info'}) {
             ".\n";
       print "Support needs to be explicitly requested by #define NEED_$f\n",
             "(or #define NEED_${f}_GLOBAL).\n"              if exists $need{$f};
             ".\n";
       print "Support needs to be explicitly requested by #define NEED_$f\n",
             "(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++;
     }
 
       $info++;
     }
 
@@ -324,6 +316,14 @@ if (exists $opt{'api-info'}) {
               "https://github.com/Dual-Life/Devel-PPPort/issues/new\n";
       }
     }
               "https://github.com/Dual-Life/Devel-PPPort/issues/new\n";
       }
     }
+
+    print "\nDepends on: ", join(', ', @{$depends{$f}}), ".\n"
+                                                         if exists $depends{$f};
+    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++;
+    }
     $count++;
   }
 
     $count++;
   }