|
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 |
- |
|
|