diff options
| author |   Kent Fredric <kentfredric@gmail.com> | 2012-06-22 20:08:10 +1200 |
|---|---|---|
| committer | Kent Fredric <kentfredric@gmail.com> | 2012-06-22 20:08:10 +1200 |
| commit | de8ef458500b8c0d63949c32205b129840e9148c (patch) | |
| tree | 95c5c19f611fcca1bb78786b572d40ffbe191297 /scripts/package_map_all.pl | |
| parent | [scripts/aggregate_tree] refactor to use the new Gentoo::Overlay::Group::INI ... (diff) | |
| download | perl-overlay-de8ef458500b8c0d63949c32205b129840e9148c.tar.gz perl-overlay-de8ef458500b8c0d63949c32205b129840e9148c.tar.bz2 perl-overlay-de8ef458500b8c0d63949c32205b129840e9148c.zip | |
[scripts/package_map_all] rework to use unified distmap.json
Diffstat (limited to 'scripts/package_map_all.pl')
| -rwxr-xr-x | scripts/package_map_all.pl | 7 |
1 files changed, 4 insertions, 3 deletions
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; |