Merge pull request #5507 from evandeaubl/gnupod

GNUpod and its dependencies
This commit is contained in:
Enno Boland 2017-01-11 12:49:10 +01:00 committed by GitHub
commit 4355c203a6
4 changed files with 83 additions and 0 deletions

View File

@ -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";

14
srcpkgs/gnupod/template Normal file
View File

@ -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

View File

@ -0,0 +1,16 @@
# Template file for 'perl-Digest-SHA1'
pkgname=perl-Digest-SHA1
version=2.13
revision=1
noarch=yes
wrksrc="${pkgname/perl-/}-${version}"
build_style=perl-module
hostmakedepends="perl"
makedepends="${hostmakedepends}"
depends="${makedepends}"
short_desc="Perl interface to SHA1 hash algorithm"
maintainer="Evan Deaubl <evan@deaubl.name>"
homepage="http://search.cpan.org/dist/Digest-SHA1/"
license="Artistic, GPL-1"
distfiles="${CPAN_SITE}/Digest/${pkgname/perl-/}-${version}.tar.gz"
checksum=68c1dac2187421f0eb7abf71452a06f190181b8fc4b28ededf5b90296fb943cc

View File

@ -0,0 +1,16 @@
# Template file for 'perl-MP3-Info'
pkgname=perl-MP3-Info
version=1.24
revision=1
noarch=yes
wrksrc="${pkgname/perl-/}-${version}"
build_style=perl-module
hostmakedepends="perl"
makedepends="${hostmakedepends}"
depends="${makedepends}"
short_desc="Perl interface to read and manipulate MP3 file information"
maintainer="Evan Deaubl <evan@deaubl.name>"
homepage="http://search.cpan.org/dist/MP3-Info/"
license="Artistic, GPL-1"
distfiles="${CPAN_SITE}/MP3/${pkgname/perl-/}-${version}.tar.gz"
checksum=671af4bf5c9b45d7897aca116e2684b3b68eb8b5c64e1feb3a562023509f25f8