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

diff --git a/perl.prov b/perl.prov
index a494480010caf026594bf8edb15fbf22dc243e03..dc1e310a2ce521d12f5f73b58f341a39b605f5c0 100644 (file)
--- 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