From: David Mitchell <davem@iabyn.com>
Date: Thu, 23 Feb 2017 10:30:42 +0000 (+0000)
Subject: Deparse: make a complex pattern readable with /x
X-Git-Tag: v5.27.1~110^2~13
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/27daf5669559d9755c5886825536aefd01d540ca?hp=b814db6746bca3ed76b5713debbbb44901168a1f;ds=sidebyside

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.
---

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;
 }