1 files changed, 2 insertions, 2 deletions
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