Bug#813920: Second (additional) patch

[Alberto Gonzalez Iniesta]

Hullo,

Please find attached a patch to fix the following error on
gnupod_addsong:

$ gnupod_addsong 
Can't use a hash as a reference at /usr/share/perl5/GNUpod/FileMagic.pm
line 365

Regards,

Alberto
-- 
Alberto Gonzalez Iniesta    | Formación, consultoría y soporte técnico
mailto/sip: a...@inittab.org | en GNU/Linux y software libre
Encrypted mail preferred    | http://inittab.com

Key fingerprint = 5347 CBD8 3E30 A9EB 4D7D  4BF2 009B 3375 6B9A AA55

--- FileMagic.pm.orig	2016-07-22 18:26:01.287639095 +0200
+++ FileMagic.pm	2016-07-22 18:18:42.091089864 +0200
@@ -362,7 +362,7 @@
 		foreach (keys(%{$in})) {
 			my $kvp = __flatten($_, $exclude); # key
 			next if !defined($kvp);
-			my $v = __flatten(%{$in}->{$_}, $exclude); # value
+			my $v = __flatten($in->{$_}, $exclude); # value
 			$kvp .= " : ".$v     if (defined($v) && ("$v" ne ""));
 			push @out, $kvp;
 		}
@@ -418,9 +418,9 @@
 	my $case = "check";
 
 	if (ref($options) eq "HASH") {
-		$joinby = %{$options}->{joinby}        if defined(%{$options}->{joinby});
-		$wspace = lc(%{$options}->{wspace})    if defined(%{$options}->{wspace});
-		$case   = lc(%{$options}->{case})      if defined(%{$options}->{case});
+		$joinby = $options->{joinby}        if defined($options->{joinby});
+		$wspace = lc($options->{wspace})    if defined($options->{wspace});
+		$case   = lc($options->{case})      if defined($options->{case});
 	}
 	my $merged = "";