[perl #77400] [PATCH] Fix escaping in opcode.h generation

# New Ticket Created by  Dagfinn Ilmari Mannsåker 
# Please include the string:  [perl #77400]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77400 >


The op list has no escapes, so there's no need check for already-escaped
characters, and the existing regex breaks any run of consecutive
backslashes, escaped or not.
---
 opcode.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/opcode.pl b/opcode.pl
index 1dadb53..1b8c688 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -209,7 +209,7 @@ for (@ops) {
     my($safe_desc) = $desc{$_};
 
     # Have to escape double quotes and escape characters.
-    $safe_desc =~ s/(^|[^\\])([\\"])/$1\\$2/g;
+    $safe_desc =~ s/([\\"])/\\$1/g;
 
     print qq(\t"$safe_desc",\n);
 }
-- 
1.7.0.4

• Re: [perl #77400] [PATCH] Fix escaping in opcode.h generation by ilmari
• [perl #77400] [PATCH] Fix escaping in opcode.h generation by Dagfinn Ilmari Mannsåker
• Re: [perl #77400] [PATCH] Fix escaping in opcode.h generation by Dave Mitchell