[perl #29938] [PATCH] Data::Escape String - backslash

[via RT]

# 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 
\\
\\\\