Handle Perl modules with letters in names

WiWaG · Sep 25, 2008 · 75998f0 · 75998f0
1 parent 4c86d02
commit 75998f0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cpan/download.cgi b/cpan/download.cgi
@@ -189,7 +189,7 @@ if ($file{'Build.PL'} && $file{'Makefile.PL'} < @dirs) {
 		}
 	}
 foreach $d (@dirs) {
-	if ($d =~ /^(\S+)\-v?([0-9\.]+)$/) {
+	if ($d =~ /^(\S+)\-v?([0-9\.ab]+)$/) {
 		push(@mods, $1);
 		push(@vers, $2);
 		}