From 6420b6fef5638a2b911cdc075d35917859e53913 Mon Sep 17 00:00:00 2001
From: root <root@dogberry.rutgers.edu>
Date: Thu, 12 Nov 1998 18:08:39 -0500
Subject: 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
---
 lib/CPAN.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/CPAN.pm')

diff --git a/lib/CPAN.pm b/lib/CPAN.pm
index 3c94cd9f0d..ca80b9ce2a 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";
-- 
cgit v1.2.1