diff options
| author | root <root@rshg054.dnsready.net> | 2011-09-03 23:14:38 +0000 |
|---|---|---|
| committer | root <root@rshg054.dnsready.net> | 2011-09-03 23:14:38 +0000 |
| commit | 3b18be1752c9fd9fa74eb1314ca97dd61e9ce912 (patch) | |
| tree | 695198e2351a85f6c3a8fe7ba53ba5e4a4ec2bdd /testing/perl | |
| parent | b37ee9de1a430956d9e5958ebd9d7e0dbfc79327 (diff) | |
Sat Sep 3 23:14:38 UTC 2011
Diffstat (limited to 'testing/perl')
| -rw-r--r-- | testing/perl/PKGBUILD | 6 | ||||
| -rw-r--r-- | testing/perl/provides.pl | 22 |
2 files changed, 21 insertions, 7 deletions
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"; } |