Versions

Author: Tux

cpanfile

@@ -7,8 +7,9 @@ requires   "List::Util";
 
 recommends "Data::Dumper"             => "2.189";
 recommends "Data::Peek"               => "0.52";
-recommends "HTTP::Tiny"               => "0.088";
-recommends "IO::Socket::SSL"          => "2.085";
+recommends "HTTP::Tiny"               => "0.090";
+recommends "IO::Socket::SSL"          => "2.089";
+recommends "JSON::MaybeXS"            => "1.004008";
 
 on "configure" => sub {
     requires   "ExtUtils::MakeMaker";
@@ -22,5 +23,5 @@ on "test" => sub {
     requires   "Test::More"               => "0.90";
     requires   "Test::Warnings";
 
-    recommends "Test::More"               => "1.302199";
+    recommends "Test::More"               => "1.302207";
     };

sandbox/genMETA.pl

@@ -68,10 +68,11 @@
 recommends:
     Data::Peek:          0.52
     Data::Dumper:        2.189
-    HTTP::Tiny:          0.088
-    IO::Socket::SSL:     2.085
+    HTTP::Tiny:          0.090
+    IO::Socket::SSL:     2.089
+    JSON::MaybeXS:       1.004008
 test_recommends:
-    Test::More:          1.302199
+    Test::More:          1.302207
 configure_suggests:
     ExtUtils::MakeMaker: 7.70
 resources:

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 {