Fix experimental warnings
authorMarius Gavrilescu <marius@ieval.ro>
Sat, 6 Feb 2016 18:41:53 +0000 (18:41 +0000)
committerMarius Gavrilescu <marius@ieval.ro>
Sat, 6 Feb 2016 18:41:53 +0000 (18:41 +0000)
lib/App/XMMS2/Notifier.pm

index 3ce6645..76c3521 100644 (file)
@@ -31,7 +31,7 @@ sub notify{
                $minfo=$xmms->medialib_get_info($id)->wait->value;
        } or return;
 
-       my %metadata = map { $_ => exists $minfo->{$_} ? (values $minfo->{$_})[0] : undef } CONVERSION_SPECIFIERS;
+       my %metadata = map { $_ => exists $minfo->{$_} ? (values %{$minfo->{$_}})[0] : undef } CONVERSION_SPECIFIERS;
        my $str=$format;
        $str =~ s/\$$_/$metadata{$_}/g for keys %metadata;
 
This page took 0.026071 seconds and 4 git commands to generate.