From: Jan Palus <atler@pld-linux.org>
Date: Fri, 12 Feb 2021 18:22:26 +0000 (+0100)
Subject: more sanity checks for package version in perl.prov
X-Git-Tag: auto/th/rpm-4.16.1.2-1~3
X-Git-Url: http://git.pld-linux.org/?p=packages%2Frpm.git;a=commitdiff_plain;h=8296c43f3bfcf736a5fc8ca7173554a3b68aceb0;hp=375682d29d2c3fe67b6171a45ce3ab6fdf0ba3d5

more sanity checks for package version in perl.prov

require at least one digit -- fixes enigmatic rpm error:

  Illegal sequence ".." in: ..

when building subversion. Triggered by SVN::Core:

  $SVN::Core::VERSION = "$SVN::Core::VER_MAJOR.$SVN::Core::VER_MINOR.$SVN::Core::VER_MICRO";
---

diff --git a/perl.prov b/perl.prov
index a494480..6a66f76 100644
--- a/perl.prov
+++ b/perl.prov
@@ -105,7 +105,8 @@ sub process_file {
 			( $version = $self->{safe}->reval($_) ) =~ s/^\s+|alpha|beta|\s+$//g;
 			if ( defined $version
 				&& length $version
-				&& $version =~ /[^\d\._abcdefgh]/ )
+				&& ($version =~ /[^\d\._abcdefgh]/
+					|| $version =~ /^[^\d]*$/ ))
 			{
 				warn "$0: weird version number in $file: [$version]\n";
 				$version = '';