diff options
Diffstat (limited to 'testing/perl/provides.pl')
-rw-r--r-- | testing/perl/provides.pl | 22 |
1 files changed, 18 insertions, 4 deletions
diff --git a/testing/perl/provides.pl b/testing/perl/provides.pl index f5f5f20a0..3bf369577 100644 --- a/testing/perl/provides.pl +++ b/testing/perl/provides.pl @@ -258,15 +258,29 @@ sub version package main; +my %CPANNAME = ('List-Util' => 'Scalar-List-Utils', + 'Text-Tabs' => 'Text-Tabs+Wrap', + 'Cwd' => 'PathTools'); + my $perldir = shift or die "Usage: $0 [path to perl source directory]\n"; die "$perldir is not a valid directory." unless -d $perldir; -my @dists = sort { $a->[0] cmp $b->[0] } - (Dists::find($perldir), Modules::find($perldir)); - +my @dists = (Dists::find($perldir), Modules::find($perldir)); for my $dist (@dists) { - my ($name, $ver) = @$dist; + my $name = $dist->[0]; + $dist->[0] = $CPANNAME{$name} if exists $CPANNAME{$name}; +} + +my @pkgs = map { + my ($name, $ver) = @$_; $name = Dist2Pkg::name($name); $ver = Dist2Pkg::version($ver); + [ $name, $ver ]; +} @dists; + +@pkgs = sort { $a->[0] cmp $b->[0] } @pkgs; + +for my $pkg (@pkgs) { + my ($name, $ver) = @$pkg; print "$name=$ver\n"; } |