From de8ef458500b8c0d63949c32205b129840e9148c Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentfredric@gmail.com>
Date: Fri, 22 Jun 2012 20:08:10 +1200
Subject: [scripts/package_map_all] rework to use unified distmap.json

---
 scripts/package_map_all.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'scripts')

diff --git a/scripts/package_map_all.pl b/scripts/package_map_all.pl
index 8bb260e10..2e84ac948 100755
--- a/scripts/package_map_all.pl
+++ b/scripts/package_map_all.pl
@@ -32,9 +32,10 @@ my $size = 500;
 my $scroll_time = '20m';
 
 my $metadata = $root->subdir( 'metadata', 'perl' );
-my $distmap = $metadata->subdir('distmap');
+#my $distmap = $metadata->subdir('distmap');
 
-my (@json_files) = grep { not $_->is_dir and $_->basename =~ /\.json$/ } $distmap->children();
+#my (@json_files) = grep { not $_->is_dir and $_->basename =~ /\.json$/ } $distmap->children();
+my (@json_files) = ($metadata->file('distmap.json'));
 
 use JSON;
 my $decoder = JSON->new()->utf8->relaxed;
@@ -42,7 +43,7 @@ my $encoder = JSON->new()->pretty->utf8->canonical;
 
 my %lookup;
 my %g_repos;
-
+say "Init-ed";
 {
   for my $file (@json_files) {
     my %repos;
-- 
cgit v1.2.3-65-gdbad