perlupd: add more overrides, handle undef version in CPAN.HEADmaster

1 files changed, 15 insertions, 9 deletions

diff --git a/perlupd b/perlupd
index caafd3a..c1071bf 100755
--- a/perlupd
+++ b/perlupd
@@ -1,5 +1,10 @@
 #!/usr/bin/perl -w
 
+# These seem to have been removed from CPAN, or anyway they don't
+# show up in 02packages.details.txt.gz.
+#   perl-Sys-CPU
+#   perl-Time-modules
+
 # Keep this at the top of the file for easy editing.
 # Most perl packages, it's obvious how to derive the CPAN module name
 # from the Slackware package name. The ones that aren't, list here:
@@ -22,15 +27,10 @@
 	'CDDB_get' => 'perl-CDDB-get',
 	'Perl::Tidy' => 'perl-Tidy',
 	'Number::Bytes::Human' => 'perl-Number-Bites-Human',
+	'Cz::Cstocs' => 'perl-Cstools',
+	'CPAN::Meta::Requirements' => 'perl-Meta-Requirements-Range',
 );
 
-# these seem to have been removed from CPAN, or anyway they don't
-# show up in 02packages.details.txt.gz.
-#'perl-Sys-CPU',
-#'perl-Time-modules',
-#'perl-Cstools',
-#'perl-Meta-Requirements-Range',
-
 ($SELF = $0) =~ s,.*/,,;
 
 if(@ARGV && $ARGV[0] eq '--help') {
@@ -105,7 +105,7 @@ if(defined ($SBO_GITROOT = $ENV{SBO_GITROOT})) {
 }
 
 # Download the $CACHE file if it doesn't exist, or if it's more than
-# CACHE_MAX secondsold. Notice, it's stored in the same place cpan
+# CACHE_MAX seconds old. Notice, it's stored in the same place cpan
 # stores it, so it might already be up to date from using cpan.
 # As of October 2026, this is a 2.5MB download.
 if(! -e $CACHE || (file_age($CACHE) > $CACHE_MAX)) {
@@ -123,7 +123,13 @@ while(<$pipe>) {
 while(<$pipe>) {
 	chomp;
 	my($mod, $ver, $path) = split /\s+/;
-	next if $ver eq 'undef';
+	if($ver eq 'undef') {
+		# App::sbozyp has 'undef' for its CPAN version, extract
+		# version number from tarball in cases like this.
+		if($path =~ m,.*-v?(.*?)\.tar\.gz$,) {
+			$ver = $1;
+		}
+	}
 
 	$ver =~ s,^v(\d),$1,; # v1.2.3 => 1.2.3
 	my $pkg = $overrides{$mod};