From 9a1f83757ac982797a35f824fbada528f3d284bd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 25 Jul 2012 17:01:54 +0000
Subject: =?UTF-8?q?sync=20with=20upstream=20rpm.org:=20"Remove=20unneeded?=
 =?UTF-8?q?=20regex=20grouping"=20(Ville=20Skytt=C3=A4,=202011-04-24)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 perl.prov | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl.prov')

diff --git a/perl.prov b/perl.prov
index 3b4c795..82206b8 100755
--- a/perl.prov
+++ b/perl.prov
@@ -157,8 +157,8 @@ sub process_file {
       # '$Revision' this often causes bizzare strings and is the most
       # common method of non static numbering.
 
-      if (m/(\$Revision: (\d+[.0-9]+))/) {
-	$version= $2; 
+      if (m/\$Revision: (\d+[.0-9]+)/) {
+	$version= $1; 
       } elsif (m/VERSION.*?[\'\"]?(\d+[._0-9]+)[\'\"]?/) {
 	
 	# look for a static number hard coded in the script
-- 
cgit v1.2.1