diff options
| author | root <root@dogberry.rutgers.edu> | 1998-11-12 18:08:39 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-11-28 11:41:14 +0000 |
| commit | 6420b6fef5638a2b911cdc075d35917859e53913 (patch) | |
| tree | be108a779c58afbe6151ab612f48fcc398a32ca3 /lib | |
| parent | a3f914c54a06647534c0855205d45eb950aebdd4 (diff) | |
| download | perl-6420b6fef5638a2b911cdc075d35917859e53913.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/CPAN.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"; |