diff options
author | Rasmus Steinke <rasi@xssn.at> | 2017-10-01 01:38:17 +0200 |
---|---|---|
committer | Rasmus Steinke <rasi@xssn.at> | 2017-10-01 01:38:17 +0200 |
commit | bfa402053a2d861b350141913f964736bd35544d (patch) | |
tree | f934e04be6a6aa8f35afa3dde80c253409d88ac2 | |
parent | 0b1842f256dc17cbbc2cc15db93047e759dd81ba (diff) | |
download | perl-app-clerk-bfa402053a2d861b350141913f964736bd35544d.tar.gz perl-app-clerk-bfa402053a2d861b350141913f964736bd35544d.tar.xz |
fix counter to match config
-rwxr-xr-x | clerk | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -306,7 +306,7 @@ sub random_album { sub random_tracks { mpd_reachable(); $mpd->clear(); - for (my $i=0; $i <= $rvar{songs}; $i++) { + for (my $i=1; $i <= $rvar{songs}; $i++) { my @artists = $mpd->list($rvar{randomartist}); my $artist_r = $artists[rand @artists]; my @albums = $mpd->list('album', 'artist', $artist_r); |