- my $r = (name($op->first) eq 'and') ? ($self->inspect($op->first->first->sibling))[0]
- : ($self->inspect($op))[0];
+ my $r;
+ if (name($op->first) eq 'and') {
+ ($r, my $l) = ($self->inspect($op->first->first))[0];
+ return $r, $l if $r and zero $l;
+ $r = ($self->inspect($op->first->first->sibling))[0];
+ } else {
+ $r = ($self->inspect($op))[0];
+ }
+