tests: escape "@" in Perl strings

This commit is contained in:
Sébastien Helleu 2017-10-24 23:04:53 +02:00
parent fe73a38b58
commit 1cace5588a

View File

@ -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):