Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 25 lines (19 sloc) 0.391 kb
b254c37 @tadzik Initial commit of an initial new infrastructure
tadzik authored
1 use v6;
2 use JSON::Tiny;
3
4 sub run-or-die($x) {
5 run $x and die "Failed running '$x'"
6 }
7
8 my @modules;
9
10 my $fh = open('META.list');
11 for $fh.lines -> $url {
12 run-or-die "wget $url";
13 my $info = from-json(slurp('META.info'));
14 @modules.push($info);
4394e15 @tadzik Fixed a typo in the SHELTER links
tadzik authored
15 say $info.perl;
b254c37 @tadzik Initial commit of an initial new infrastructure
tadzik authored
16 unlink 'META.info';
17 }
18
19 given open('projects.json', :w) {
20 .say(to-json @modules);
21 .close;
22 }
58729c3 @tadzik close the filehandle
tadzik authored
23
24 $fh.close;
Something went wrong with that request. Please try again.