[perl #17722] [PATCH] mandel.p6

[via RT]

# New Ticket Created by  Leopold Toetsch 
# Please include the string:  [perl #17722]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17722 >


Some recent change in P6C did break examples/mandel.p6.

Please apply,
TIA,
leo


-- attachment  1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/39070/31738/1fe685/mandel_p6.patch


--- parrot/languages/perl6/examples/mandel.p6   Sat Aug 24 06:29:19 2002
+++ parrot-leo/languages/perl6/examples/mandel.p6       Wed Oct  2 10:43:19 2002
@@ -25,7 +25,7 @@
 sub main() {
     my ($x, $y, $k);
     # no substr now
-    my @b = (" ", ".", ":", ",", ";", "!", "/", ">", ")", "|", "&", "I", "H", "%", 
"*", "#");
+    my @b = (' ', '.', ':', ',', ';', '!', '/', '>', ')', '|', '&', 'I', 'H', '%', 
+'*', '#');
 
     my ($r, $i, $z, $Z, $t, $c, $C);
     loop ($y=30; $C = $y*0.1 - 1.5, $y--;) {