[gentoo-commits] proj/perl-overlay:master commit in: scripts/

[Kent Fredric]

commit:     e1327f45165acc0e83ec0cbf9cf370c93bd814db
Author:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
AuthorDate: Sun Apr  8 13:19:46 2012 +0000
Commit:     Kent Fredric <kentfredric <AT> gmail <DOT> com>
CommitDate: Sun Apr  8 13:19:46 2012 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/perl-overlay.git;a=commit;h=e1327f45

[scripts/package_map] add a canonical package name string that works with some cliens ( ie: cpanm AUTHOR/foobaz.tar.z ) , reorganise some of the version values

---
 scripts/package_map.pl |    5 +++--
 1 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/scripts/package_map.pl b/scripts/package_map.pl
index cdc306f..3b0abec 100755
--- a/scripts/package_map.pl
+++ b/scripts/package_map.pl
@@ -72,8 +72,9 @@ for my $result ( @{ $results->{hits}->{hits} } ) {
   my $cdistrib = $fields->{distribution};
   $cversion =~ s/^${cdistrib}-//;
 
-  $fields->{canon_version} = $cversion;
-  $fields->{gentoo_version} = scalar try { gv( $cversion , { lax => 1 } ) };
+  $fields->{version_canon} = $cversion;
+  $fields->{version_gentoo} = scalar try { gv( $cversion , { lax => 1 } ) };
+  $fields->{archive_canon} = $fields->{author} . '/' . $fields->{archive};
   $data->{ $cdistrib } = [] unless exists $data->{ $cdistrib };
   push @{ $data->{ $cdistrib } }, $fields ;
 }