diff options
| -rwxr-xr-x | scripts/perl.prov | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/perl.prov b/scripts/perl.prov index 32f27f2c5..400cb198b 100755 --- a/scripts/perl.prov +++ b/scripts/perl.prov @@ -162,8 +162,8 @@ sub process_file { # '$Revision' this often causes bizarre 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/['"]?(\d+[.0-9]+)['"]?/) { # look for a static number hard coded in the script |