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

[baggins]

commit 95537eca115468fe4d8802f1b36d6ff2d50fd1ed
Author: Jan Rękorajski <bagg...@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

_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit