diff options
Diffstat (limited to 'lib/App/Beam/List.pm')
-rw-r--r-- | lib/App/Beam/List.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/App/Beam/List.pm b/lib/App/Beam/List.pm index 018f7e3..fefbfa0 100644 --- a/lib/App/Beam/List.pm +++ b/lib/App/Beam/List.pm @@ -84,10 +84,11 @@ sub run { $rec->state_name); print "\n"; if ($verbose) { - my %ent = $rec->entries; + my %ent = $rec->items; foreach my $item (split /\s+/, $self->get('core.items')) { if (exists($ent{$item})) { - printf("# %-24s %s\n", $item, $ent{$item}->state_name); + printf("# %-24s %s %s\n", $item, $ent{$item}->state_name, + join(',', $ent{$item}->files)); delete $ent{$item}; } } |