- my $ref = $_;
- my $lead = s/^(-)// && $1;
- (map { ".>$lead$_" }
- $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
- ),
- @{ $info->{table}->{$ref} || [] }
+ my $lead = s/^(-)// && $1;
+ (map { ".>$lead$_" }
+ $scriptname->{$source.'_'.$_} || $scriptname->{$_} || $_
+ ),
+ @{ $info->{table}->{$_} || [] }