From 0f1dd7bebbea6916dc5d698099a8a4cbfb829e81 Mon Sep 17 00:00:00 2001
From: Jerome Quelin <jquelin@mageia.org>
Date: Sat, 26 Feb 2011 12:04:53 +0000
Subject: 1.118 - support for _ in perl module version

---
 perl.prov | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl.prov')

diff --git a/perl.prov b/perl.prov
index a6d68bb..85b8e81 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/[\'\"]?(\d+[._0-9]+)[\'\"]?/) {
 	
 	# look for a static number hard coded in the script
 	
-- 
cgit v1.2.1