- if ( my $n = delete $hash->{Name} ) {
- my @keys = keys %$hash;
- if ( $#keys > 0 ) {
- $state->{$name}->{$n} = $hash;
- } else {
- $state->{$name}->{$n} = $hash->{ $keys[0] };
-# warn "using $keys[0] as value for $name.$n\n";
- }
+ if ( my $n = delete $hash->{Name} ) {
+ my @keys = keys %$hash;
+ if ( $#keys > 0 ) {
+ $state->{$name}->{$n} = $hash;