From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 25 Sep 2007 09:45:46 +0000 (+0000)
Subject: Make OptreeCheck.pm more forgiving about parent pad indexes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cf14a5ab4f672ed6d205674d471c54099e9240c;p=p5sagit%2Fp5-mst-13.2.git

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 4b0567e..9de97e5 100644
--- 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