my ($r, $l) = $self->inspect_kids($op);
if (defined $r) {
my $d = delete $r->{die};
- $r->{0} += $d if defined $d;
+ return $r, $l if not defined $d;
+ if (defined $l) {
+ my $z = delete $l->{0};
+ $l = { %$l, 0 => $z };
+ $l->{0} += $d;
+ } else {
+ $l = { 0 => $d };
+ }
}
return $r, $l;