- no repackage in rpm.org

[packages/rpm.git] / perl.prov

diff --git a/perl.prov b/perl.prov
index 8f1a79d599aacdeb249789ebe93504ebc62aa106..6a66f7652b8e8a9204115a3c9edf26021e4fde29 100644 (file)
--- a/perl.prov
+++ b/perl.prov
@@ -2,7 +2,7 @@
 use strict;
 
 # perl.prov - find information about perl modules for RPM
-# $Id: perl.prov,v 1.10 2004/05/05 17:13:54 radek Exp $
+# $Id$
 
 # It's questionable if we should provide perl(Foo::Bar) for modules
 # from outside @INC (possibly shipped with some applications).
@@ -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 = '';