Following up on this, I found it odd that '~~' didn't work in the rps.pl
script (or "sleep()" ;-)
if $you ~~ $my { say 'Draw.' } # don`t work (
as in:
./perl6 languages/perl6/t/02-test-pm/3-output.t
Statement not terminated properly at line 26, near ":P5/output"
current instr.: 'parrot;PGE::Util;die' pc 120
(runtime/parrot/library/PGE/Util.pir:82)
called from Sub 'parrot;Perl6::Grammar;statementlist' pc 16752
(src/gen_grammar.pir:2398)
called from Sub 'parrot;Perl6::Grammar;statement_block' pc 13923
(src/gen_grammar.pir:1384)
called from Sub 'parrot;Perl6::Grammar;TOP' pc 10765
(src/gen_grammar.pir:204)
called from Sub 'parrot;PCT::HLLCompiler;parse' pc 564
(src/PCT/HLLCompiler.pir:348)
called from Sub 'parrot;PCT::HLLCompiler;compile' pc 440
(src/PCT/HLLCompiler.pir:291)
called from Sub 'parrot;PCT::HLLCompiler;eval' pc 755
(src/PCT/HLLCompiler.pir:450)
called from Sub 'parrot;PCT::HLLCompiler;evalfiles' pc 1067
(src/PCT/HLLCompiler.pir:587)
called from Sub 'parrot;PCT::HLLCompiler;command_line' pc 1246
(src/PCT/HLLCompiler.pir:676)
called from Sub 'parrot;Perl6::Compiler;main' pc 9205 (perl6.pir:183)
*** glibc detected *** double free or corruption (!prev): 0x084f85b8 ***
*** glibc detected *** double free or corruption (out): 0x08599ee0 ***
which is what I was seeing w/ rps.pl Line 26 of the test file is:
my $file = $?FILE;
$file ~~ s:P5/output.t/script.pl/;
So, should we be worrying about this not working or is it too early? Hmm,
it fails this way too
languages/perl6 > ../../parrot perl6.pbc t/02-test-pm/3-output.t
Statement not terminated properly at line 26, near ":P5/output"
I'd guess it's a parsing issue on "~~" Hmm, make spectest
...
Files=82, Tests=670, 247 wallclock secs ( 0.50 usr 0.23 sys + 242.52 cusr
3.92 csys = 247.17 CPU)
So I guess it's not odd ;->
a
-------------------
Andy Bach
Systems Mangler
Internet: [EMAIL PROTECTED]
Voice: (608) 261-5738 Fax: 264-5932
"When angry, count to four; when very angry, swear."
Mark Twain
