From 3b18be1752c9fd9fa74eb1314ca97dd61e9ce912 Mon Sep 17 00:00:00 2001
From: root <root@rshg054.dnsready.net>
Date: Sat, 3 Sep 2011 23:14:38 +0000
Subject: Sat Sep  3 23:14:38 UTC 2011

---
 testing/perl/PKGBUILD    |  6 +++---
 testing/perl/provides.pl | 22 ++++++++++++++++++----
 2 files changed, 21 insertions(+), 7 deletions(-)

(limited to 'testing/perl')

diff --git a/testing/perl/PKGBUILD b/testing/perl/PKGBUILD
index 56152f25d..c7fd16191 100644
--- a/testing/perl/PKGBUILD
+++ b/testing/perl/PKGBUILD
@@ -1,11 +1,11 @@
-# $Id: PKGBUILD 135875 2011-08-19 22:28:42Z eric $
+# $Id: PKGBUILD 136841 2011-09-02 08:20:58Z bluewind $
 # Maintainer: Angel Velasquez <angvp@archlinux.org> 
 # Contributor: kevin <kevin.archlinux.org>
 # Contributor: judd <jvinet.zeroflux.org>
 # Contributor: francois <francois.archlinux.org> 
 pkgname=perl
 pkgver=5.14.1
-pkgrel=4
+pkgrel=5
 pkgdesc="A highly capable, feature-rich programming language"
 arch=(i686 x86_64)
 license=('GPL' 'PerlArtistic')
@@ -23,7 +23,7 @@ options=('!makeflags' '!purge')
 md5sums=('97cd306a2c22929cc141a09568f43bb0'
          '5ed2542fdb9a60682f215bd33701e61a'
          '1f0cbbee783e8a6d32f01be5118e0d5e'
-         '6124591798c83c386975f7ef35514f0e'
+         '31fc0b5bb4935414394c5cfbec2cb8e5'
          'c25d86206d649046538c3daab7874564')
 
 build() {
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";
 }
-- 
cgit v1.2.3-54-g00ecf