sync with upstream rpm.org: "Remove unneeded regex grouping"

(Ville Skyttä, 2011-04-24)

2 files changed, 3 insertions, 2 deletions

diff --git a/NEWS b/NEWS
index 8ac85f5..f073d91 100644
--- a/NEWS
+++ b/NEWS
@@ -2,6 +2,7 @@
   by glibc for five years now and can safely be assumed that there's no longer
   any need for it, reducing ~8K packages' dependency on it during next rebuild.
   (Per Oyvind, mdv)
+- perl.prov: sync with upstream rpm.org
 - use upstream fonconfig.prov as we had exactly the same file
 
 Version 1.147-12 - 24 Jul 2012, by Colin
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