summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-10-01 01:38:17 +0200
committerRasmus Steinke <rasi@xssn.at>2017-10-01 01:38:17 +0200
commitbfa402053a2d861b350141913f964736bd35544d (patch)
treef934e04be6a6aa8f35afa3dde80c253409d88ac2 /clerk
parent0b1842f256dc17cbbc2cc15db93047e759dd81ba (diff)
downloadperl-app-clerk-bfa402053a2d861b350141913f964736bd35544d.tar.gz
perl-app-clerk-bfa402053a2d861b350141913f964736bd35544d.tar.xz
fix counter to match config
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk2
1 files changed, 1 insertions, 1 deletions
diff --git a/clerk b/clerk
index 6202d33..2a0b74a 100755
--- a/clerk
+++ b/clerk
@@ -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);