[arch-commits] Commit in perl/trunk (PKGBUILD provides.pl)

[Florian Pritz]

    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;
+
+ at pkgs = sort { $a->[0] cmp $b->[0] } @pkgs;
+
+for my $pkg (@pkgs) {
+    my ($name, $ver) = @$pkg;
     print "$name=$ver\n";
 }