Lines 529-535
sub _status_graph_union {
Link Here
|
529 |
$status_graph->{$backend_status_key} = $backend_status; |
529 |
$status_graph->{$backend_status_key} = $backend_status; |
530 |
# Update all core methods' next_actions. |
530 |
# Update all core methods' next_actions. |
531 |
foreach my $prev_action ( @{$backend_status->{prev_actions}} ) { |
531 |
foreach my $prev_action ( @{$backend_status->{prev_actions}} ) { |
532 |
if ( grep $prev_action, @core_status_ids ) { |
532 |
if ( grep { $prev_action eq $_ } @core_status_ids ) { |
533 |
my @next_actions = |
533 |
my @next_actions = |
534 |
@{$status_graph->{$prev_action}->{next_actions}}; |
534 |
@{$status_graph->{$prev_action}->{next_actions}}; |
535 |
push @next_actions, $backend_status_key; |
535 |
push @next_actions, $backend_status_key; |
Lines 539-545
sub _status_graph_union {
Link Here
|
539 |
} |
539 |
} |
540 |
# Update all core methods' prev_actions |
540 |
# Update all core methods' prev_actions |
541 |
foreach my $next_action ( @{$backend_status->{next_actions}} ) { |
541 |
foreach my $next_action ( @{$backend_status->{next_actions}} ) { |
542 |
if ( grep $next_action, @core_status_ids ) { |
542 |
if ( grep { $next_action eq $_ } @core_status_ids ) { |
543 |
my @prev_actions = |
543 |
my @prev_actions = |
544 |
@{$status_graph->{$next_action}->{prev_actions}}; |
544 |
@{$status_graph->{$next_action}->{prev_actions}}; |
545 |
push @prev_actions, $backend_status_key; |
545 |
push @prev_actions, $backend_status_key; |
546 |
- |
|
|