projects
/
app-musicexpo.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9d6d04a
)
Fix push/keys on reference is experimental warnings
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 25 Oct 2014 12:13:51 +0000
(15:13 +0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 25 Oct 2014 12:13:51 +0000
(15:13 +0300)
lib/App/MusicExpo.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/App/MusicExpo.pm
b/lib/App/MusicExpo.pm
index a6c21a594260ba38e79c593b7f7f762f14229ae1..0b3276cab35784406e1f29a145af1276d9362ea4 100644
(file)
--- a/
lib/App/MusicExpo.pm
+++ b/
lib/App/MusicExpo.pm
@@
-140,7
+140,7
@@
sub run {
next unless defined $info;
my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga', '.mp4', '.aac', '.m4a';
$files{$basename} //= [];
next unless defined $info;
my $basename = fileparse $file, '.flac', '.mp3', '.ogg', '.oga', '.mp4', '.aac', '.m4a';
$files{$basename} //= [];
- push
$files{$basename
}, $info;
+ push
@{$files{$basename}
}, $info;
}
my $ht=HTML::Template::Compiled->new(
}
my $ht=HTML::Template::Compiled->new(
@@
-154,8
+154,8
@@
sub run {
my @versions = @$_;
my %entry = (%{$versions[0]}, formats => []);
for my $ver (@versions) {
my @versions = @$_;
my %entry = (%{$versions[0]}, formats => []);
for my $ver (@versions) {
- push
$entry{formats
}, {format => $ver->{format}, file => $ver->{file}};
- for my $key (keys $ver) {
+ push
@{$entry{formats}
}, {format => $ver->{format}, file => $ver->{file}};
+ for my $key (keys
%
$ver) {
$entry{$key} = $ver->{$key} if $ver->{$key} ne '?';
}
}
$entry{$key} = $ver->{$key} if $ver->{$key} ne '?';
}
}
This page took
0.010722 seconds
and
4
git commands to generate.