Lines 372-378
sub _status_graph_union {
Link Here
|
372 |
$status_graph->{$backend_status_key} = $backend_status; |
372 |
$status_graph->{$backend_status_key} = $backend_status; |
373 |
# Update all core methods' next_actions. |
373 |
# Update all core methods' next_actions. |
374 |
foreach my $prev_action ( @{$backend_status->{prev_actions}} ) { |
374 |
foreach my $prev_action ( @{$backend_status->{prev_actions}} ) { |
375 |
if ( grep $prev_action, @core_status_ids ) { |
375 |
if ( grep /^$prev_action$/, @core_status_ids ) { |
376 |
my @next_actions = |
376 |
my @next_actions = |
377 |
@{$status_graph->{$prev_action}->{next_actions}}; |
377 |
@{$status_graph->{$prev_action}->{next_actions}}; |
378 |
push @next_actions, $backend_status_key; |
378 |
push @next_actions, $backend_status_key; |
Lines 382-388
sub _status_graph_union {
Link Here
|
382 |
} |
382 |
} |
383 |
# Update all core methods' prev_actions |
383 |
# Update all core methods' prev_actions |
384 |
foreach my $next_action ( @{$backend_status->{next_actions}} ) { |
384 |
foreach my $next_action ( @{$backend_status->{next_actions}} ) { |
385 |
if ( grep $next_action, @core_status_ids ) { |
385 |
if ( grep /^$next_action$/, @core_status_ids ) { |
386 |
my @prev_actions = |
386 |
my @prev_actions = |
387 |
@{$status_graph->{$next_action}->{prev_actions}}; |
387 |
@{$status_graph->{$next_action}->{prev_actions}}; |
388 |
push @prev_actions, $backend_status_key; |
388 |
push @prev_actions, $backend_status_key; |
389 |
- |
|
|