From b0c6325e9e0a1de42f208a0e41705cc75eb71433 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker=20=28via=20RT=29?=
 <perlbug-followup@perl.org>
Date: Mon, 23 Aug 2010 16:05:48 -0700
Subject: Fix escaping in opcode.h generation

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 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'opcode.pl')

diff --git a/opcode.pl b/opcode.pl
index 1dadb5358a..1b8c688c4d 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);
 }
-- 
cgit v1.2.1