Date: Friday, September 2, 2011 @ 04:17:26 Author: bluewind Revision: 136840
provides.pl upstream update Modified: perl/trunk/PKGBUILD perl/trunk/provides.pl -------------+ PKGBUILD | 4 ++-- provides.pl | 22 ++++++++++++++++++---- 2 files changed, 20 insertions(+), 6 deletions(-) Modified: PKGBUILD =================================================================== --- PKGBUILD 2011-09-02 08:13:37 UTC (rev 136839) +++ PKGBUILD 2011-09-02 08:17:26 UTC (rev 136840) @@ -5,7 +5,7 @@ # 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 @@ md5sums=('97cd306a2c22929cc141a09568f43bb0' '5ed2542fdb9a60682f215bd33701e61a' '1f0cbbee783e8a6d32f01be5118e0d5e' - '6124591798c83c386975f7ef35514f0e' + '31fc0b5bb4935414394c5cfbec2cb8e5' 'c25d86206d649046538c3daab7874564') build() { Modified: provides.pl =================================================================== --- provides.pl 2011-09-02 08:13:37 UTC (rev 136839) +++ provides.pl 2011-09-02 08:17:26 UTC (rev 136840) @@ -258,15 +258,29 @@ 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 = $dist->[0]; + $dist->[0] = $CPANNAME{$name} if exists $CPANNAME{$name}; +} -for my $dist (@dists) { - my ($name, $ver) = @$dist; +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"; }