11 lines
439 B
Perl
11 lines
439 B
Perl
--- lib/Net/DAAP/DMAP.pm.orig Sat Aug 21 14:59:26 2004
|
|
+++ lib/Net/DAAP/DMAP.pm Sat Aug 21 15:09:13 2004
|
|
@@ -387,7 +387,7 @@
|
|
my $struct = shift;
|
|
my $out = '';
|
|
|
|
- my %by_name = map { $_->{NAME} => $_ } values %$Types;
|
|
+ my %by_name = map { $_->{NAME} => $_ } grep { %$_ } values %$Types;
|
|
for my $pair (@$struct) {
|
|
my ($name, $value) = @$pair;
|
|
# dmap_unpack doesn't populate the name when its decoded
|