From 08f0c4ac8ee0e4a4f65e15263ad8a1f420e72284 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=A9r=C3=B4me=20Quelin?= Date: Tue, 8 Dec 2009 09:52:16 +0000 Subject: 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. --- perl.prov | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.1