added code to escape backslash characters [perl #29938]
added code to escape backslash characters [perl #29938]

courtesy of Will Coleda <will@coleda.com>


git-svn-id: 6e74a02f85675cec270f5d931b0f6998666294a3@6174 d31e2699-5ff4-0310-a27c-f18f2fbe73fe

ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot,ashgti/parrot