Author: kwilliams
Date: Mon Jan 21 18:47:52 2008
New Revision: 10630
Modified:
Module-Build/trunk/inc/latest.pm
Log:
Add comment
Modified: Module-Build/trunk/inc/latest.pm
==============================================================================
--- Module-Build/trunk/inc/latest.pm (original)
+++ Module-Build/trunk/inc/latest.pm Mon Jan 21 18:47:52 2008
@@ -42,6 +42,8 @@
my ($file) = @_;
my $fh = IO::File->new($file) or die "Can't read $file: $!";
while (<$fh>) {
+ # This regex has been tested to work against all versions of M::B
+ # up through at least 0.2808. No guarantees for other modules.
return (eval $2) if /^\s*\$VERSION\s*=\s*(['"]?)([\d._]+)\1/;
}
return;
