# New Ticket Created by Will Coleda # Please include the string: [perl #29938] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=29938 >
bash-2.05a$ cat escape.imc .sub _main @MAIN load_bytecode "library/Data/Escape.imc" $P1 = find_global "Data::Escape", "String" $S0 = "\\\\" print $S0 print "\n" $S0 = $P1($S0,"\"") print $S0 print "\n" end .end bash-2.05a$ ./parrot escape.imc \\ \\ Fixing up library/Data/Escape with: gt40: # ascii codes greater than 40 below if c != 92 goto DONE set tmp, "\\\\" # branch DONE DONE: produces: bash-2.05a$ ./parrot escape.imc \\ \\\\