From 27daf5669559d9755c5886825536aefd01d540ca Mon Sep 17 00:00:00 2001
From: David Mitchell <davem@iabyn.com>
Date: Thu, 23 Feb 2017 10:30:42 +0000
Subject: [PATCH 1/1] Deparse: make a complex pattern readable with /x

In sub re_unback().

It shouldn't change its functionality, but just add whitespace
and comments for readability.
---
 lib/B/Deparse.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
index 0a68828..47b557d 100644
--- a/lib/B/Deparse.pm
+++ b/lib/B/Deparse.pm
@@ -4825,7 +4825,23 @@ sub re_unback {
     my($str) = @_;
 
     # the insane complexity here is due to the behaviour of "\c\"
-    $str =~ s/(^|[^\\]|\\c\\)(?<!\\c)\\(\\\\)*(?=[[:^print:]])/$1$2/g;
+    $str =~ s/
+                # these two lines ensure that the backslash we're about to
+                # remove isn't preceeded by something which makes it part
+                # of a \c
+
+                (^ | [^\\] | \\c\\)             # $1
+                (?<!\\c)
+
+                # the backslash to remove
+                \\
+
+                # keep pairs of backslashes
+                (\\\\)*                         # $2
+
+                # only remove if the thing following is a control char
+                (?=[[:^print:]])
+            /$1$2/xg;
     return $str;
 }
 
-- 
1.8.3.1