[packages/perl] - more hacks to get Getopt::Long prov version right

[baggins]

commit 95537eca115468fe4d8802f1b36d6ff2d50fd1ed
Author: Jan Rękorajski <baggins at pld-linux.org>
Date:   Fri Aug 31 19:35:15 2018 +0200

    - more hacks to get Getopt::Long prov version right

 perl.prov | 11 +++++++++++
 1 file changed, 11 insertions(+)
---
diff --git a/perl.prov b/perl.prov
index a494480..dc1e310 100644
--- a/perl.prov
+++ b/perl.prov
@@ -101,6 +101,17 @@ sub process_file {
 			$package = $pack;
 		}
 
+		if ( defined $package && $package == 'Getopt::Long' && /([\$*])(([\w\:\']*)\bVERSION_STRING)\b.*\=/ ) {
+			( $version = $self->{safe}->reval($_) ) =~ s/^\s+|alpha|beta|\s+$//g;
+			if ( defined $version
+				&& length $version
+				&& $version =~ /[^\d\._abcdefgh]/ )
+			{
+				warn "$0: weird version number in $file: [$version]\n";
+				$version = '';
+			}
+		}
+
 		if ( !defined $version && /([\$*])(([\w\:\']*)\bVERSION)\b.*\=/ ) {
 			( $version = $self->{safe}->reval($_) ) =~ s/^\s+|alpha|beta|\s+$//g;
 			if ( defined $version
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl.git/commitdiff/95537eca115468fe4d8802f1b36d6ff2d50fd1ed