From 9cf14a5ab4f672ed6d205674d471c54099e9240c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 25 Sep 2007 09:45:46 +0000 Subject: [PATCH] Make OptreeCheck.pm more forgiving about parent pad indexes p4raw-id: //depot/perl@31964 --- ext/B/t/OptreeCheck.pm | 1 + 1 file changed, 1 insertion(+) 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 -- 1.8.3.1