Make OptreeCheck.pm more forgiving about parent pad indexes

p4raw-id: //depot/perl@31964

diff --git a/ext/B/t/OptreeCheck.pm b/ext/B/t/OptreeCheck.pm
index 4b0567ea83780a85c4ea4bec8b43470de6ac60a7..9de97e55d31ad0778cce39d06972f006aaf91b84 100644 (file)
--- a/ext/B/t/OptreeCheck.pm
+++ b/ext/B/t/OptreeCheck.pm
@@ -742,6 +742,7 @@ sub mkCheckRex {
     $str =~ s/match\\\(.*?\\\)/match\(.*?\)/msg;       # match args
     $str =~ s/(0x[0-9A-Fa-f]+)/0x[0-9A-Fa-f]+/msg;     # hexnum values
     $str =~ s/".*?"/".*?"/msg;                         # quoted strings
+    $str =~ s/FAKE:(\w):\d+/FAKE:$1:\\d+/msg;          # parent pad index
 
     $str =~ s/(\d refs?)/\\d+ refs?/msg;               # 1 ref, 2+ refs (plural)
     $str =~ s/leavesub \[\d\]/leavesub [\\d]/msg;      # for -terse