aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJérôme Quelin <jquelin@mandriva.org>2009-12-08 09:52:16 +0000
committerJérôme Quelin <jquelin@mandriva.org>2009-12-08 09:52:16 +0000
commit08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284 (patch)
tree7a1f2dbeb7c60654fd77d0854e6d2e85d7032a9b
parent495fbdf2feb4ccc93fde3957a5f69abf72755bab (diff)
downloadrpm-setup-08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284.tar
rpm-setup-08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284.tar.gz
rpm-setup-08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284.tar.bz2
rpm-setup-08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284.tar.xz
rpm-setup-08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284.zip
1990s called, they want their $VERSION back
seriously, the code was only catching version such as: $VERSION = ... $VERSION = ... however, now version are often declared with our or my, with potentially some code before (eg, to load modules on the same line) this will allow perl.prov to assign a version to (almost) all perl(Foo::Bar) provides.
-rwxr-xr-xperl.prov2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.prov b/perl.prov
index 18739c4..8f5d53b 100755
--- a/perl.prov
+++ b/perl.prov
@@ -149,7 +149,7 @@ sub process_file {
if (
($package) &&
- (m/^\s*\$VERSION\s*=\s+/)
+ (m/^(.*;)?\s*((my|our)\s+)?\$VERSION\s*=\s+/)
) {
# first see if the version string contains the string