Browse files

Merge pull request #868 from azawawi/master

Make Perl 6 examples work again + README.pod update + Parrot mini-web server fix
  • Loading branch information...
2 parents 6d516e4 + f67488b commit 20787b52b9c13ab9a99f93d65f4afb09a138d42f @cotto cotto committed Nov 20, 2012
Showing with 7 additions and 6 deletions.
  1. +1 −0 README.pod
  2. +2 −2 examples/io/httpd.pir
  3. +2 −2 examples/mops/mops.p6
  4. +2 −2 examples/nci/xlibtest.p6
View
1 README.pod
@@ -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
4 examples/io/httpd.pir
@@ -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
4 examples/mops/mops.p6
@@ -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
4 examples/nci/xlibtest.p6
@@ -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>;

0 comments on commit 20787b5

Please sign in to comment.