From: root <root@dogberry.rutgers.edu>
Date: Thu, 12 Nov 1998 23:08:39 +0000 (-0500)
Subject: teach CPAN.pm to ignore beta perl distributions when looking for
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6420b6fef5638a2b911cdc075d35917859e53913;p=p5sagit%2Fp5-mst-13.2.git

teach CPAN.pm to ignore beta perl distributions when looking for
modules
	Message-Id: <199811130408.XAA10578@dogberry.rutgers.edu>
	Subject: recompile tries getting a perl distribution

p4raw-id: //depot/perl@2336
---

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 3c94cd9..ca80b9c 100644
--- a/lib/CPAN.pm
+++ b/lib/CPAN.pm
@@ -1185,7 +1185,7 @@ index    re-reads the index files
 sub _binary_extensions {
     my($self) = shift @_;
     my(@result,$module,%seen,%need,$headerdone);
-    my $isaperl = q{perl5[._-]\\d{3}(_[0-4][0-9])?\\.tar[._-]gz$};
+    my $isaperl = q{perl5[._-]\\d{3}(?:(?:_[0-4][0-9])|(?:-beta\\d?))?\\.tar[._-]gz$};
     for $module ($self->expand('Module','/./')) {
 	my $file  = $module->cpan_file;
 	next if $file eq "N/A";