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:
447902f
)
Fix caching
author
Marius Gavrilescu
<marius@ieval.ro>
Sat, 1 Aug 2015 15:36:30 +0000
(18:36 +0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Sat, 1 Aug 2015 15:36:30 +0000
(18:36 +0300)
lib/App/MusicExpo.pm
patch
|
blob
|
blame
|
history
diff --git
a/lib/App/MusicExpo.pm
b/lib/App/MusicExpo.pm
index c38d2b7f7b22ff56e6e884ab94be428f233f76a4..3bdef011a6d7086d7ee766068e190a0271eba187 100644
(file)
--- a/
lib/App/MusicExpo.pm
+++ b/
lib/App/MusicExpo.pm
@@
-134,10
+134,10
@@
sub run {
my %files;
for my $file (@ARGV) {
my $info;
my %files;
for my $file (@ARGV) {
my $info;
- $info = thaw flacinfo $file if $file =~ /\.flac$/i;
- $info = thaw mp3info $file if $file =~ /\.mp3$/i;
- $info = thaw vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
- $info = thaw mp4info $file if $file =~ /\.mp4|\.aac|\.m4a$/i;
+ $info = thaw
scalar
flacinfo $file if $file =~ /\.flac$/i;
+ $info = thaw
scalar
mp3info $file if $file =~ /\.mp3$/i;
+ $info = thaw
scalar
vorbisinfo $file if $file =~ /\.og(?:g|a)$/i;
+ $info = thaw
scalar
mp4info $file if $file =~ /\.mp4|\.aac|\.m4a$/i;
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} //= [];
This page took
0.011613 seconds
and
4
git commands to generate.