This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update minimum perl version to 5.003_07
authorKarl Williamson <khw@cpan.org>
Wed, 10 Jul 2019 23:17:51 +0000 (17:17 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 27 Sep 2019 22:39:30 +0000 (16:39 -0600)
It used to say plain 5.003, but for many years the earliest data had
been 5.003_07.  I have tested it back to there and think this is good
enough.  This is actually quite early in the 5.003 cycle.  If we wanted
to try another 5.003, it would be more likely 5.003_97 which perlhist
says was widely used, but is real close to 5.004

(cherry picked from commit 1dd8b06856003dc87de669ef8356e66eb30985f9)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/PPPort_pm.PL
dist/Devel-PPPort/parts/inc/ppphtest
dist/Devel-PPPort/t/ppphtest.t

index 2eee616..d8ec65f 100644 (file)
@@ -131,7 +131,7 @@ for (reverse sort keys %todo) {
 $data =~ s{^__UNSUPPORTED_API__(\s*?)^}
           {join "\n", @todo}gem;
 
-$data =~ s{__MIN_PERL__}{5.003}g;
+$data =~ s{__MIN_PERL__}{5.003_07}g;
 $data =~ s{__MAX_PERL__}{5.30}g;
 
 open FH, ">PPPort.pm" or die "PPPort.pm: $!\n";
index 53cac1c..8b50078 100644 (file)
@@ -659,7 +659,7 @@ my %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
 ok(scalar keys %found, 1);
 ok(exists $found{INT2PTR});
 ok(matches($o, '^Supported at least starting from perl-5\.6\.0\.', 'm'), 1);
-ok(matches($o, '^Support by .*ppport.* provided back to perl-5\.003\.', 'm'), 1);
+ok(matches($o, '^Support by .*ppport.* provided back to perl-5\.003', 'm'), 1);
 
 $o = ppport(qw(--api-info=Zero));
 %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
index 299c643..5cf15e5 100644 (file)
@@ -696,7 +696,7 @@ my %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;
 ok(scalar keys %found, 1);
 ok(exists $found{INT2PTR});
 ok(matches($o, '^Supported at least starting from perl-5\.6\.0\.', 'm'), 1);
-ok(matches($o, '^Support by .*ppport.* provided back to perl-5\.003\.', 'm'), 1);
+ok(matches($o, '^Support by .*ppport.* provided back to perl-5\.003', 'm'), 1);
 
 $o = ppport(qw(--api-info=Zero));
 %found = map {($_ => 1)} $o =~ /^===\s+(\w+)\s+===/mg;