summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-09-30 13:48:38 +0200
committerRasmus Steinke <rasi@xssn.at>2017-09-30 13:48:38 +0200
commitd26df52cf064995b42f7e0e6e8220a6529d01bdf (patch)
tree797ac18c526f5a64e423fc0528a917f12ec2c387
parent64925211c6b2d3453abb5ba02ae13b6037e7cf97 (diff)
downloadperl-app-clerk-d26df52cf064995b42f7e0e6e8220a6529d01bdf.tar.gz
perl-app-clerk-d26df52cf064995b42f7e0e6e8220a6529d01bdf.tar.xz
remove debug print, use correct variable for scalar
-rwxr-xr-xclerk3
1 files changed, 1 insertions, 2 deletions
diff --git a/clerk b/clerk
index b9768c5..5ea2b0f 100755
--- a/clerk
+++ b/clerk
@@ -517,10 +517,9 @@ sub mpd_add_items {
}
sub mpd_rate_items {
- my $rating = @_[1];
+ my $rating = $_[1];
chomp $rating;
if ($rating eq "Delete Rating") {
- print "$rating\n";
$mpd->sticker_value("song", "$_", "rating", undef) for @{$_[0]};
} else {
$mpd->sticker_value("song", "$_", "rating", "$rating") for @{$_[0]};