This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ppport.h: Suppress useless warning
authorKarl Williamson <khw@cpan.org>
Fri, 2 Aug 2019 00:17:34 +0000 (18:17 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:51:27 +0000 (16:51 -0600)
If an element is ported as far back as we know about, there is no point
warning about that.

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

index bdbceac..bc8486b 100644 (file)
@@ -546,6 +546,7 @@ for $filename (@files) {
 
   unless ($opt{quiet}) {
     for $func (sort dictionary_order keys %{$file{uses_todo}}) {
+      next if int_parse_version($API{$func}{todo}) <= $int_min_perl;
       print "*** WARNING: Uses $func, which may not be portable below perl ",
             format_version($API{$func}{todo}), ", even with '$ppport'\n";
       $warnings++;