summaryrefslogtreecommitdiffstats
path: root/clerk
diff options
context:
space:
mode:
authorRasmus Steinke <rasi@xssn.at>2017-08-12 00:51:59 +0200
committerRasmus Steinke <rasi@xssn.at>2017-08-12 00:51:59 +0200
commit34cadbba822a82840e4ef6807499b24eb0c086fa (patch)
treef9c448c2ca957a672473751fe26421586f68aa98 /clerk
parent22cd0c822489390c3685a8aff17824e054ccc295 (diff)
downloadperl-app-clerk-34cadbba822a82840e4ef6807499b24eb0c086fa.tar.gz
perl-app-clerk-34cadbba822a82840e4ef6807499b24eb0c086fa.tar.xz
remove debug
Diffstat (limited to 'clerk')
-rwxr-xr-xclerk3
1 files changed, 0 insertions, 3 deletions
diff --git a/clerk b/clerk
index 4c46929..e1d4d18 100755
--- a/clerk
+++ b/clerk
@@ -162,7 +162,6 @@ sub help {
}
sub backend_call {
- $Devel::Trace =1;
my ($in, $fields, $random) = @_;
my $input;
my $out;
@@ -266,7 +265,6 @@ sub random {
}
sub do_action {
- $Devel::Trace =1;
my ($in, $context) = @_;
my @action_items = ("Add\n", "Replace\n");
my $action = backend_call(\@action_items);
@@ -357,7 +355,6 @@ sub formatted_playlists {
}
sub list_db_entries_for {
- $Devel::Trace =1;
my ($kind) = @_;
die "Wrong kind" unless any {; $_ eq $kind} qw/Albums Latest Tracks/;