Make Perl 6 examples work again + README.pod update + Parrot mini-web server fix #868

Merged
merged 3 commits into from Nov 20, 2012
View
@@ -150,6 +150,7 @@ In addition, you may obtain an html-ized version of our docs -- which, in
some respects, are more extensive than our POD documents -- with the following
command:
+ cpan JSON # Needed by the next command
make html
You may then view a local copy of the html documentation by navigating your
View
@@ -224,12 +224,12 @@ SERVE_file:
set_addr eh, handle_404_exception
eh.'handle_types'(.EXCEPTION_PIO_ERROR)
push_eh eh
- fp = open url, 'r'
+ fp = open url, 'rb'
pop_eh
unless fp goto SERVE_404
len = stat url, .STAT_FILESIZE
read file_content, fp, len
-
+ close fp
SERVE_blob:
response = '200 OK'
send_response(work, response, headers, file_content)
View
@@ -1,6 +1,6 @@
# Copyright (C) 2001-2012, Parrot Foundation.
-=pod
+=begin pod
=head1 NAME
@@ -45,7 +45,7 @@ F<examples/mops/mops.py>,
F<examples/mops/mops.rb>,
F<examples/mops/mops.scheme>.
-=cut
+=end pod
sub MAIN() {
my ($I1, $I2, $I3, $I4, $I5, $N1, $N2, $N4, $N5);
View
@@ -2,7 +2,7 @@
use v6;
-=pod
+=begin pod
=head1 NAME
@@ -23,7 +23,7 @@ current directory:
Press Esc key to exit the program.
-=cut
+=end pod
use Xlib:from<parrot>;