mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-05 06:27:37 +00:00
Code Issues Releases Activity

audio/gnupod: fix deprecated use of defined(@array)

Browse Source 
Submitter becomes maintainer. First port to be maintained by submitter.

PR:	265018
Reported by:	steve.roome@gmail.com
MFH:	2022Q3
This commit is contained in:
Stephen Roome 2022-08-04 13:23:14 +02:00 committed by Fernando Apesteguía
parent 522dbcf83c
commit 50964af933
2 changed files with 36 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
audio/gnupod/Makefile
View File

@ -5,7 +5,7 @@ CATEGORIES= audio perl5
MASTER_SITES= SAVANNAH \
http://www.blinkenlights.ch/gnupod-dist/stable/
MAINTAINER= ports@FreeBSD.org
MAINTAINER= steve.roome@gmail.com
COMMENT= Set of Perl scripts for using an Apple iPod
LICENSE= GPLv3+

35
audio/gnupod/files/patch-to-fix-gnupod.txt Normal file
View File

@ -0,0 +1,35 @@
--- src/ext/FileMagic.pm.orig 2009-07-11 00:20:05.000000000 +0100
+++ src/ext/FileMagic.pm 2022-07-03 22:22:24.750066000 +0100
@@ -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 $options->{joinby};
+ $wspace = lc($options->{wspace}) if $options->{wspace};
+ $case = lc($options->{case}) if $options->{case};
}
my $merged = "";
--- src/ext/XMLhelper.pm.orig 2009-07-11 00:20:05.000000000 +0100
+++ src/ext/XMLhelper.pm 2022-07-03 22:22:34.918120000 +0100
@@ -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";