[packages/rpm/rpm.org] more sanity checks for package version in perl.prov

[atler]

commit 8296c43f3bfcf736a5fc8ca7173554a3b68aceb0
Author: Jan Palus <atler at pld-linux.org>
Date:   Fri Feb 12 19:22:26 2021 +0100

    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";

 perl.prov | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)
---
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 = '';
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/rpm.git/commitdiff/8296c43f3bfcf736a5fc8ca7173554a3b68aceb0