Fix experimental warnings

diff --git a/lib/App/XMMS2/Notifier.pm b/lib/App/XMMS2/Notifier.pm
index 3ce6645126aa158621a51fca498506476e8dd579..76c35211564e3ce789218a2a911158ea8b00389a 100644 (file)
--- a/lib/App/XMMS2/Notifier.pm
+++ b/lib/App/XMMS2/Notifier.pm
@@ -31,7 +31,7 @@ sub notify{
                $minfo=$xmms->medialib_get_info($id)->wait->value;
        } or return;
 
                $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;
 
        my $str=$format;
        $str =~ s/\$$_/$metadata{$_}/g for keys %metadata;