Versions

Author: Tux

.releaserc

@@ -8,8 +8,8 @@ allow_glob_in_perls 1
 required DBI,Text::CSV_XS,SQL::Statement
 perls /pro/bin/perl:/usr/bin/perl\
 :/media/Tux/perls/bin/perl5.8\
-:/media/Tux/perls/bin/perl5.[123][02468]\
-:/media/Tux/perls/bin/perl5.35\
+:/media/Tux/perls/bin/perl5.[1234][02468]\
+:/media/Tux/perls/bin/perl5.41*\
 :/media/Tux/perls/bin/tperl5.8\
-:/media/Tux/perls/bin/perl5.[123][02468]\
-:/media/Tux/perls/bin/tperl5.35
+:/media/Tux/perls/bin/perl5.[1234][02468]\
+:/media/Tux/perls/bin/tperl5.41*

ChangeLog

@@ -1,4 +1,4 @@
-0.61	- 2024-06-18, H.Merijn Brand
+0.61	- 2024-12-31, H.Merijn Brand
     * Replace "use vars" with "our" (James Raspass: PR #9)
     * Specify recommended versions based on known CVE's
     * Update doc for groff-1.24

cpanfile

@@ -6,9 +6,9 @@ requires   "Text::CSV_XS"             => "1.01";
 recommends "DBD::File"                => "0.44";
 recommends "DBI"                      => "1.643";
 recommends "SQL::Statement"           => "1.414";
-recommends "Text::CSV_XS"             => "1.55";
+recommends "Text::CSV_XS"             => "1.58";
 
-suggests   "DBI"                      => "1.643";
+suggests   "DBI"                      => "1.645";
 
 on "configure" => sub {
     requires   "DBI"                      => "1.628";
@@ -31,7 +31,7 @@ on "test" => sub {
     requires   "charnames";
 
     recommends "Encode"                   => "3.12";
-    recommends "Test::More"               => "1.302199";
+    recommends "Test::More"               => "1.302207";
 
     suggests   "Encode"                   => "3.21";
     };

lib/Bundle/DBD/CSV.pm

@@ -21,9 +21,9 @@ Bundle::DBD::CSV - A bundle to install the DBD::CSV driver
 
 =head1 CONTENTS
 
-DBI 1.643
+DBI 1.645
 
-Text::CSV_XS 1.55
+Text::CSV_XS 1.58
 
 SQL::Statement 1.414
 

sandbox/genMETA.pl

@@ -76,9 +76,9 @@ sub usage {
     DBI:                 1.643
     DBD::File:           0.44
     SQL::Statement:      1.414
-    Text::CSV_XS:        1.55
+    Text::CSV_XS:        1.58
 suggests:
-    DBI:                 1.643
+    DBI:                 1.645
 configure_requires:
     ExtUtils::MakeMaker: 0
     DBI:                 1.628
@@ -95,7 +95,7 @@ sub usage {
     Cwd:                 0
     charnames:           0
 test_recommends:
-    Test::More:          1.302199
+    Test::More:          1.302207
     Encode:              3.12
 test_suggests:
     Encode:              3.21

sandbox/genMETA.pm

@@ -2,7 +2,7 @@
 
 package genMETA;
 
-our $VERSION = "1.15-20231007";
+our $VERSION = "1.16-20240903";
 
 use 5.014001;
 use warnings;
@@ -30,7 +30,9 @@ sub new {
 
 sub extract_version {
     my $fh = shift;
+    my @vsn;
     while (<$fh>) {
+	m/\$VERSION\b/ and push @vsn => $_;
 	m{^(?:our\s+)?							# declaration
 	   \$VERSION \s*=\s*						# variable
 	   ["']? ([0-9._]+)						# version
@@ -41,6 +43,15 @@ sub extract_version {
 	   $}x or next;
 	return $1;
 	}
+    # No match on first scan, try without date
+    for (@vsn) {
+	m{^(?:our\s+)?							# declaration
+	   \$VERSION \s*=\s*						# variable
+	   ([""'']) ([0-9._]+) \1					# version
+	   \s*;
+	   }x or next;
+	return $2;
+	}
     } # extract_version
 
 sub version_from {