From 8137875ee2a971b1ef0bab63be11cf498618b235 Mon Sep 17 00:00:00 2001
From: Evan Deaubl <evan@deaubl.name>
Date: Tue, 10 Jan 2017 19:45:06 -0700
Subject: [PATCH] New package: gnupod-0.99.8

---
 srcpkgs/gnupod/patches/perl-5.22.patch | 37 ++++++++++++++++++++++++++
 srcpkgs/gnupod/template                | 14 ++++++++++
 2 files changed, 51 insertions(+)
 create mode 100644 srcpkgs/gnupod/patches/perl-5.22.patch
 create mode 100644 srcpkgs/gnupod/template

diff --git a/srcpkgs/gnupod/patches/perl-5.22.patch b/srcpkgs/gnupod/patches/perl-5.22.patch
new file mode 100644
index 00000000000..fcd293aeb1c
--- /dev/null
+++ b/srcpkgs/gnupod/patches/perl-5.22.patch
@@ -0,0 +1,37 @@
+diff -ur src.orig/ext/FileMagic.pm src/ext/FileMagic.pm
+--- src.orig/ext/FileMagic.pm	2015-09-10 18:04:14.915008340 -0700
++++ src/ext/FileMagic.pm	2015-09-10 18:06:08.313011035 -0700
+@@ -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 = "";
+ 
+diff -ur src.orig/ext/XMLhelper.pm src/ext/XMLhelper.pm
+--- src.orig/ext/XMLhelper.pm	2015-09-10 18:04:14.916008340 -0700
++++ src/ext/XMLhelper.pm	2015-09-10 18:04:47.753009121 -0700
+@@ -359,7 +359,7 @@
+ 			print OUT " </smartplaylist>\n";
+ 		}
+ 		elsif(my $phr = get_plpref($current_plname)) { #plprefs found..
+-			if (defined(@{$XDAT->{playlists}->{data}->{$current_plname}})) { #the playlist is not empty
++			if (@{$XDAT->{playlists}->{data}->{$current_plname}}) { #the playlist is not empty
+ 				print OUT "\n ".mkfile({playlist=>$phr}, {return=>1,noend=>1})."\n";
+ 				foreach(@{$XDAT->{playlists}->{data}->{$current_plname}}) {
+ 					print OUT "   $_\n";
diff --git a/srcpkgs/gnupod/template b/srcpkgs/gnupod/template
new file mode 100644
index 00000000000..16362f8f6f5
--- /dev/null
+++ b/srcpkgs/gnupod/template
@@ -0,0 +1,14 @@
+# Template file for 'gnupod'
+pkgname=gnupod
+version=0.99.8
+revision=1
+build_style=gnu-configure
+hostmakedepends="perl perl-Digest-SHA1 perl-XML-Parser perl-Unicode-String perl-MP3-Info perl-TimeDate"
+makedepends="${hostmakedepends}"
+depends="${makedepends}"
+short_desc="Command line tools for managing data on iPods"
+maintainer="Evan Deaubl <evan@deaubl.name>"
+license="GPL-3"
+homepage="http://www.gnu.org/software/gnupod/"
+distfiles="${GNU_SITE}/${pkgname}/${pkgname}-${version}.tgz"
+checksum=bd566295a2e14352e6d05f5c816cab36b0e80d3ab36d29c4bbb45c581d3f3c31