make v1.118 work with perl modules having a number followed by a _ in1.119

their name, and a fully qualified VERSION (eg $l1_cache::VERSION = ...)

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.prov b/perl.prov
index 85b8e81..3b4c795 100755
--- a/perl.prov
+++ b/perl.prov
@@ -159,7 +159,7 @@ sub process_file {
 
       if (m/(\$Revision: (\d+[.0-9]+))/) {
 	$version= $2; 
-      } elsif (m/[\'\"]?(\d+[._0-9]+)[\'\"]?/) {
+      } elsif (m/VERSION.*?[\'\"]?(\d+[._0-9]+)[\'\"]?/) {
 	
 	# look for a static number hard coded in the script