This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
parts/inc/ppphbin: Add clarifying text to output
authorKarl Williamson <khw@cpan.org>
Sun, 14 Jul 2019 16:01:09 +0000 (10:01 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:33 +0000 (16:39 -0600)
(cherry picked from commit 1f910f5b55fe9bfb8d755dae343f2b785e44aee7)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/ppphbin

index 3401a00..bddd45b 100644 (file)
@@ -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++;