xt is devel only, so may require a newer perl

Author: Tux

Changes

@@ -1,7 +1,8 @@
 1.645 - 2024-08-25 TBD
 
     * Move developer tests to xt/
-    * Make Changes match CPAN::Changes::Spec and rgen DBI::Changes from that
+    * Make Changes match CPAN::Changes::Spec and regen DBI::Changes from that
+    * Fixes for modern gcc i.c.w. recent perl (Daniël)
 
 1.644 - 2024-08-23, Tim Bunce
 

changes2pm.pl

@@ -3,7 +3,7 @@
 use 5.014002;
 use warnings;
 
-our $VERSION = "0.01 - 20240825";
+our $VERSION = "0.02 - 20240826";
 our $CMD = $0 =~ s{.*/}{}r;
 
 sub usage {
@@ -69,10 +69,12 @@ =head1 NAME
     say $ph "";
     shift @c while @c && $c[ 0] !~ m/\S/;
     pop   @c while @c && $c[-1] !~ m/\S/;
-    if ($c[0] =~ s/^\s*\K(\*|\x{2022})\s*//) {
-	my @i = [ pop @c ];
+    if ($c[0] =~ s/^(\s*)(\*|\x{2022})\s*//) {
+	my $ws = $1;
+	s/^$ws// for @c;
+	my @i = [ shift @c ];
 	while (@c) {
-	    if ($c[0] =~ s/^\s*\K(\*|\x{2022})\s*//) {
+	    if ($c[0] =~ s/^(\*|\x{2022})\s*//) {
 		push @i => [ shift @c ]
 		}
 	    else {

doc/DBI::Changes.3

@@ -58,7 +58,7 @@
 .\" ========================================================================
 .\"
 .IX Title "DBI::Changes 3"
-.TH DBI::Changes 3 2024-08-25 "perl v5.40.0" "User Contributed Perl Documentation"
+.TH DBI::Changes 3 2024-08-26 "perl v5.40.0" "User Contributed Perl Documentation"
 .\" For nroff, turn off justification.  Always turn off hyphenation; it makes
 .\" way too many mistakes in technical documents.
 .if n .ad l
@@ -69,6 +69,10 @@ DBI::Changes \- List of significant changes to the DBI
 .IX Subsection "Changes in DBI 1.645 - 25 Aug 2024"
 .IP \(bu 2
 Move developer tests to xt/
+.IP \(bu 2
+Make Changes match CPAN::Changes::Spec and regen DBI::Changes from that
+.IP \(bu 2
+Fixes for modern gcc i.c.w. recent perl (Daniël)
 .SS "Changes in DBI 1.644 \- 23 Aug 2024"
 .IX Subsection "Changes in DBI 1.644 - 23 Aug 2024"
 .Vb 10

doc/DBI::Changes.html

@@ -166,6 +166,12 @@ <h2 id="Changes-in-DBI-1.645---25-Aug-2024">Changes in DBI 1.645 - 25 Aug 2024</
 
 <li><p>Move developer tests to xt/</p>
 
+</li>
+<li><p>Make Changes match CPAN::Changes::Spec and regen DBI::Changes from that</p>
+
+</li>
+<li><p>Fixes for modern gcc i.c.w. recent perl (Dani&euml;l)</p>
+
 </li>
 </ul>
 

doc/DBI::Changes.md

@@ -5,6 +5,8 @@ DBI::Changes - List of significant changes to the DBI
 ## Changes in DBI 1.645 - 25 Aug 2024
 
 - Move developer tests to xt/
+- Make Changes match CPAN::Changes::Spec and regen DBI::Changes from that
+- Fixes for modern gcc i.c.w. recent perl (Daniël)
 
 ## Changes in DBI 1.644 - 23 Aug 2024
 

lib/DBI/Changes.pm

@@ -20,6 +20,14 @@ DBI::Changes - List of significant changes to the DBI
 
 Move developer tests to xt/
 
+=item *
+
+Make Changes match CPAN::Changes::Spec and regen DBI::Changes from that
+
+=item *
+
+Fixes for modern gcc i.c.w. recent perl (Daniël)
+
 =back
 
 =head2 Changes in DBI 1.644 - 23 Aug 2024

xt/00_perlversion.t

@@ -20,15 +20,24 @@ my @pm = sort "DBI.pm",
 	(glob "lib/*/*/*/*.pm");
 
 my %f5xx = (
-    "5.008.1"  => [ @pm, glob ("t/*"), glob ("xt/*.t"), glob ("*.PL") ],
-    "5.010.0" => [],
-    "5.012.0" => [],
-    "5.014.0" => [],
-    "5.016.0" => [],
+    "5.008.1" => { map { $_ => 1 } @pm, glob ("t/*"), glob ("xt/*.t"), glob ("*.PL") },
+    "5.010.0" => {},
+    "5.012.0" => {},
+    "5.014.0" => { map { $_ => 1 } "xt/20_kwalitee.t" },
+    "5.016.0" => {},
     );
 
-foreach my $v (sort keys %f5xx) {
-    my @f = @{$f5xx{$v}} or next;
+my @v = sort keys %f5xx;
+foreach my $v (reverse @v) {
+    foreach my $f (sort keys %{$f5xx{$v}}) {
+	foreach my $x (grep { $_ lt $v } @v) {
+	    delete $f5xx{$x}{$f}
+	    }
+	}
+    }
+
+foreach my $v (@v) {
+    my @f = sort keys %{$f5xx{$v}} or next;
     subtest ($v => sub { all_minimum_version_ok ($v, { paths => [ @f ]}); });
     }
 

xt/20_kwalitee.t

@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use strict;
+use 5.012001;
 use warnings;
 use Test::More;