Synchronise the opname regexp with blead.

(No harm in including dor, as nothing in maint will generate that)

p4raw-id: //depot/maint-5.8/perl@23299

diff --git a/ext/B/B.pm b/ext/B/B.pm
index 8f47261..5c9b250 100644 (file)
--- a/ext/B/B.pm
+++ b/ext/B/B.pm
@@ -177,7 +177,7 @@ sub walkoptree_exec {
        $op->$method($level);
        $ppname = $op->name;
        if ($ppname =~
-           /^(or(assign)?|and(assign)?|mapwhile|grepwhile|entertry|range|cond_expr)$/)
+           /^(d?or(assign)?|and(assign)?|mapwhile|grepwhile|entertry|range|cond_expr)$/)
        {
            print $prefix, uc($1), " => {\n";
            walkoptree_exec($op->other, $method, $level + 1);