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
[perl5.git] / 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};
-      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++;
     }
 
@@ -324,6 +316,14 @@ if (exists $opt{'api-info'}) {
               "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++;
   }