X-Git-Url: https://git.tld-linux.org/?p=packages%2Frpm.git;a=blobdiff_plain;f=perl.prov;h=6a66f7652b8e8a9204115a3c9edf26021e4fde29;hp=a494480010caf026594bf8edb15fbf22dc243e03;hb=46761559371d6e5e68c23c17286f4883562d0579;hpb=a4316b5afc30b9f3e8e667bcd44e4feccd020080

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 = '';