Sat Sep 3 23:14:38 UTC 2011

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";
 }