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 (file)
--- 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";