[svn:Module-Build] r9806 - Module-Build/trunk/inc

[kwilliams]

Author: kwilliams
Date: Fri Jul 27 15:08:02 2007
New Revision: 9806

Modified:
   Module-Build/trunk/inc/latest.pm

Log:
Fix regex

Modified: Module-Build/trunk/inc/latest.pm
==============================================================================
--- Module-Build/trunk/inc/latest.pm    (original)
+++ Module-Build/trunk/inc/latest.pm    Fri Jul 27 15:08:02 2007
@@ -42,7 +42,7 @@
   my ($file) = @_;
   my $fh = IO::File->new($file) or die "Can't read $file: $!";
   while (<$fh>) {
-    return (eval $2) if /^\s*\$VERSION\s*=\s*(['"]?)([\d._])+\1/;
+    return (eval $2) if /^\s*\$VERSION\s*=\s*(['"]?)([\d._]+)\1/;
   }
   return;
 }