# New Ticket Created by Michal Jurosz
# Please include the string: [perl #39788]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39788 >
Hello,
attached patch probably fixes examples/shootout errors (
http://shootout.alioth.debian.org/sandbox/benchmark.php?test=all&lang=parrot
).
* regexdna.pir - the "PGE::P6Rule" compiler is now "PGE::P6Regex"
* sumcol.pir - initialize count ("count = 0")
Examples/pge needs some work too.
--
S pozdravem Michal Jurosz
Index: examples/shootout/regexdna.pir
===================================================================
--- examples/shootout/regexdna.pir (revision 13245)
+++ examples/shootout/regexdna.pir (working copy)
@@ -3,7 +3,7 @@
.local pmc p6rule_compile, rulesub, match, variants, variants_p5, iub,
iter, matches, capt
.local string pattern, chunk, seq, key, replacement
.local int readlen, chunklen, seqlen, finallen, i, varnum, count
- p6rule_compile = compreg "PGE::P6Rule"
+ p6rule_compile = compreg "PGE::P6Regex"
# Store the regexes we need...
variants = new .FixedStringArray
Index: examples/shootout/sumcol.pir
===================================================================
--- examples/shootout/sumcol.pir (revision 13245)
+++ examples/shootout/sumcol.pir (working copy)
@@ -7,6 +7,7 @@
.local pmc stdin
.local string line
.local int count, tmp, linelen
+ count = 0
stdin = getstdin
beginwhile:
line = readline stdin
