diff options
Diffstat (limited to 'tools/build')
-rw-r--r-- | tools/build/Makefile.in | 7 | ||||
-rw-r--r-- | tools/build/panda-state.p6 | 14 |
2 files changed, 10 insertions, 11 deletions
diff --git a/tools/build/Makefile.in b/tools/build/Makefile.in index 68e20c6..b2cc03f 100644 --- a/tools/build/Makefile.in +++ b/tools/build/Makefile.in @@ -3,7 +3,7 @@ MOAR_DIR = moarvm NQP_DIR = nqp RAKUDO_DIR = rakudo -STAR_VERSION = 2015.09 +STAR_VERSION = 2015.11 # install location PREFIX_DIR = @prefix@ @@ -42,7 +42,7 @@ rakudo: @backend_exes@ @backend_exes@: @echo "== Configuring and building Rakudo" - cd $(RAKUDO_DIR) && $(PERL) Configure.pl --sysroot=$(SYSROOT_DIR) --sdkroot=$(SDKROOT_DIR) --prefix=$(PREFIX_DIR) --backends=@backends@ && $(MAKE) + cd $(RAKUDO_DIR) && $(PERL) Configure.pl@pass_rakudo_config@ --prefix="$(PREFIX_DIR)" --backends=@backends@ && $(MAKE) rakudo-test: rakudo cd $(RAKUDO_DIR) && $(MAKE) test @@ -97,8 +97,7 @@ test: @echo "To run the Rakudo compiler tests, use '$(MAKE) rakudo-test'" @echo "To run the Perl 6 spectests, use '$(MAKE) rakudo-spectest'" @echo "" - @echo "To run tests for individual modules, install and then try:" - @echo " prove -e ./perl6 -r modules/<name>/t" + @echo "To run the modules' test suites, run '$(MAKE) modules-test'" @echo "" ## cleaning diff --git a/tools/build/panda-state.p6 b/tools/build/panda-state.p6 index 6ee4a12..0d7dd23 100644 --- a/tools/build/panda-state.p6 +++ b/tools/build/panda-state.p6 @@ -41,16 +41,16 @@ sub fetch-projects-json($to) { else { $s = IO::Socket::INET.new(:host<ecosystem-api.p6c.org>, :port(80)); } - $s.print("GET http://ecosystem-api.p6c.org/projects.json HTTP/1.1\nHost: ecosystem-api.p6c.org\nAccept: */*\nConnection: Close\n\n"); + $s.print("GET http://ecosystem-api.p6c.org/projects.json HTTP/1.1\nHost: ecosystem-api.p6c.org\nAccept: */*\nConnection: Close\n\n"); + # gobble up all header line: + 1 while $s.get; + + # read the body: my ($buf, $g) = ''; - $buf ~= $g while $g = $s.get; + $buf ~= "$g\n" while $g = $s.get; if %*ENV<http_proxy> { $buf.=subst(:g,/'git://'/,'http://'); } - - given open($to, :w) { - .say: $buf.split(/\r?\n\r?\n/, 2)[1]; - .close; - } + spurt($to, $buf); } |