Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Just had to tweak the heredoc on 'ParrotIO.pir' a'bit.

  • Loading branch information...
commit 4236c9d0d82d7ba5d83e208e90952e56a2f4a945 1 parent 7f1155a
@ayardley ayardley authored
Showing with 26 additions and 26 deletions.
  1. +26 −26 t/examples/streams.t
View
52 t/examples/streams.t
@@ -234,32 +234,32 @@ read:[ 112 # vim: expandtab shiftwidth=4 ft=pir:]
EXP_FILELINES
'ParrotIO.pir' => <<'EXP_PARROTIO',
-read:[=head1 DESCRIPTION\n\nThis small examp]
-read:[le shows the usage of C<Stream::ParrotIO>.\n\nIt rea]
-read:[ds this file with a default block size.\n\nYou can s]
-read:[pecify another block size with the C<blockSize> me]
-read:[thod.\nC<blockSize> called without an integer param]
-read:[eter will return the\ncurrent block size.\n\nEach tim]
-read:[e the C<read> method is called, the next block is ]
-read:[read from\nthe underlying ParrotIO, until EOF, wher]
-read:[e the stream will be disconnected.\n\nInstead of usi]
-read:[ng the C<open> method, you can also assign your ow]
-read:[n ParrotIO\nPMC to the stream with the C<assign> op]
-read:[.\n\n=cut\n\n.sub _main :main\n .local pmc stream\n\n ]
-read:[ load_bytecode 'Stream/ParrotIO.pbc'\n\n # crea]
-read:[te the ParrotIO stream\n stream = new ['Stream';]
-read:[ 'ParrotIO']\n\n # open this file\n stream.\"ope]
-read:[n\"( \"examples/streams/ParrotIO.pir\", 'r' )\n\n # ]
-read:[you can specify a custom block size with\n # str]
-read:[eam.\"blockSize\"( 10 )\n\n # dump the stream\n s]
-read:[tream.\"dump\"()\n\n end\n.end\n\n=head1 AUTHOR\n\nJens ]
-read:[Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is]
-read:[ the author\nand maintainer.\nPlease send patches an]
-read:[d suggestions to the Perl 6 Internals mailing list]
-read:[.\n\n=head1 COPYRIGHT\n\nCopyright (C) 2004-2009, Parr]
-read:[ot Foundation.\n\n=cut\n\n# Local Variables:\n# mode:]
-read:[ pir\n# fill-column: 100\n# End:\n# vim: expandtab ]
-read:[shiftwidth=4 ft=pir:\n]
+read:[=head1 DESCRIPTION\n\nThis small example shows the u]
+read:[sage of C<Stream::ParrotIO>.\n\nIt reads this file w]
+read:[ith a default block size.\n\nYou can specify another]
+read:[ block size with the C<blockSize> method.\nC<blockS]
+read:[ize> called without an integer parameter will retu]
+read:[rn the\ncurrent block size.\n\nEach time the C<read> ]
+read:[method is called, the next block is read from\nthe ]
+read:[underlying ParrotIO, until EOF, where the stream w]
+read:[ill be disconnected.\n\nInstead of using the C<open>]
+read:[ method, you can also assign your own ParrotIO\nPMC]
+read:[ to the stream with the C<assign> op.\n\n=cut\n\n.sub ]
+read:[_main :main\n .local pmc stream\n\n load_byteco]
+read:[de 'Stream/ParrotIO.pbc'\n\n # create the ParrotI]
+read:[O stream\n stream = new ['Stream'; 'ParrotIO']\n\n]
+read:[ # open this file\n stream.\"open\"( \"examples/]
+read:[streams/ParrotIO.pir\", 'r' )\n\n # you can specif]
+read:[y a custom block size with\n # stream.\"blockSize]
+read:[\"( 10 )\n\n # dump the stream\n stream.\"dump\"()]
+read:[\n\n end\n.end\n\n=head1 AUTHOR\n\nJens Rieks E<lt>par]
+read:[rot at jensbeimsurfen dot deE<gt> is the author\nan]
+read:[d maintainer.\nPlease send patches and suggestions ]
+read:[to the Perl 6 Internals mailing list.\n\n=head1 COPY]
+read:[RIGHT\n\nCopyright (C) 2004-2009, Parrot Foundation.]
+read:[\n\n=cut\n\n# Local Variables:\n# mode: pir\n# fill-]
+read:[column: 100\n# End:\n# vim: expandtab shiftwidth=4 f]
+read:[t=pir:\n]
EXP_PARROTIO
},
);
Please sign in to comment.
Something went wrong with that request. Please try again.