tests: escape "@" in Perl strings
This commit is contained in:
parent
fe73a38b58
commit
1cace5588a
@ -464,7 +464,7 @@ class UnparsePerl(UnparsePython):
|
||||
|
||||
def _ast_str(self, node):
|
||||
"""Add an AST Str in output."""
|
||||
self.add('"%s"' % node.s.replace('$', '\\$'))
|
||||
self.add('"%s"' % node.s.replace('$', '\\$').replace('@', '\\@'))
|
||||
|
||||
|
||||
class UnparseRuby(UnparsePython):
|
||||
|
Loading…
x
Reference in New Issue
Block a user