Update pqd so it works, sends actual new data struct.

This commit is contained in:
Daniel Nichter
2013-06-06 13:37:16 -05:00
parent 912d648922
commit f583ec6113
3 changed files with 68 additions and 67 deletions

View File

@@ -208,7 +208,7 @@ sub hostname {
sub files {
my ( $self, %args ) = @_;
if ( $args{files} ) {
return "# Files: " . join(', ', @{$args{files}}) . "\n";
return "# Files: " . join(', ', map { $_->{name} } @{$args{files}}) . "\n";
}
return;
}