Lines 569-575
sub _status_graph_union {
Link Here
|
569 |
if ( grep { $prev_action eq $_ } @core_status_ids ) { |
569 |
if ( grep { $prev_action eq $_ } @core_status_ids ) { |
570 |
my @next_actions = |
570 |
my @next_actions = |
571 |
@{$status_graph->{$prev_action}->{next_actions}}; |
571 |
@{$status_graph->{$prev_action}->{next_actions}}; |
572 |
push @next_actions, $backend_status_key; |
572 |
push @next_actions, $backend_status_key |
|
|
573 |
if (!grep(/^$backend_status_key$/, @next_actions)); |
573 |
$status_graph->{$prev_action}->{next_actions} |
574 |
$status_graph->{$prev_action}->{next_actions} |
574 |
= \@next_actions; |
575 |
= \@next_actions; |
575 |
} |
576 |
} |
Lines 579-585
sub _status_graph_union {
Link Here
|
579 |
if ( grep { $next_action eq $_ } @core_status_ids ) { |
580 |
if ( grep { $next_action eq $_ } @core_status_ids ) { |
580 |
my @prev_actions = |
581 |
my @prev_actions = |
581 |
@{$status_graph->{$next_action}->{prev_actions}}; |
582 |
@{$status_graph->{$next_action}->{prev_actions}}; |
582 |
push @prev_actions, $backend_status_key; |
583 |
push @prev_actions, $backend_status_key |
|
|
584 |
if (!grep(/^$backend_status_key$/, @prev_actions)); |
583 |
$status_graph->{$next_action}->{prev_actions} |
585 |
$status_graph->{$next_action}->{prev_actions} |
584 |
= \@prev_actions; |
586 |
= \@prev_actions; |
585 |
} |
587 |
} |
586 |
- |
|
|