Deparse.pm: add some code comments
authorDavid Mitchell <davem@iabyn.com>
Mon, 12 Mar 2018 12:20:23 +0000 (12:20 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 20 Mar 2018 07:59:26 +0000 (07:59 +0000)
lib/B/Deparse.pm

index 18ac238..5f3a591 100644 (file)
@@ -5556,7 +5556,9 @@ sub double_delim {
     }
 }
 
+# Escape a characrter.
 # Only used by tr///, so backslashes hyphens
+
 sub pchr { # ASCII
     my($n) = @_;
     if ($n == ord '\\') {
@@ -5591,6 +5593,9 @@ sub pchr { # ASCII
     }
 }
 
+# Convert a list of characters into a string suitable for tr/// search or
+# replacement, with suitable escaping and collapsing of ranges
+
 sub collapse {
     my(@chars) = @_;
     my($str, $c, $tr) = ("");