parts/inc/ppphbin: Add clarifying text to output

(cherry picked from commit 1f910f5b55fe9bfb8d755dae343f2b785e44aee7)
Signed-off-by: Nicolas R <atoomic@cpan.org>

diff --git a/dist/Devel-PPPort/parts/inc/ppphbin b/dist/Devel-PPPort/parts/inc/ppphbin
index 3401a00..bddd45b 100644 (file)
--- a/dist/Devel-PPPort/parts/inc/ppphbin
+++ b/dist/Devel-PPPort/parts/inc/ppphbin
@@ -193,10 +193,17 @@ if (exists $opt{'api-info'}) {
       $info++;
     }
     if ($API{$f}{provided}) {
-      my $todo = $API{$f}{todo} ? format_version($API{$f}{todo}) : "__MIN_PERL__";
-      print "Support by $ppport provided back to perl-$todo.\n";
-      print "Support needs to be explicitly requested by NEED_$f.\n" if exists $need{$f};
-      print "Depends on: ", join(', ', @{$depends{$f}}), ".\n" if exists $depends{$f};
+      my $todo = $API{$f}{todo} ? $API{$f}{todo} : __MIN_PERL__;
+      my $at_least = (int_parse_version($todo) == int_parse_version(__MIN_PERL__))
+                     ? " at least"
+                     : "";
+      print "Support by $ppport provided$at_least back to perl-",
+            format_version($todo),
+            ".\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};
       print "\n$hints{$f}" if exists $hints{$f};
       print "\nWARNING:\n$warnings{$f}" if exists $warnings{$f};
       $info++;