blob: 996c73061f201045cfd9c6068914ce8f9f65e16e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- 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
|
