From 6de0eb64a28c5f86ab02c4943be9b232c7790548 Mon Sep 17 00:00:00 2001 From: "Bradley M. Kuhn" Date: Sun, 20 Dec 2015 16:42:53 -0800 Subject: [PATCH] Remove uncontrolled debugging statements. Yes, I should add a debug mode. But I'm not going to. --- Supporters/lib/Supporters.pm | 4 ---- 1 file changed, 4 deletions(-) diff --git a/Supporters/lib/Supporters.pm b/Supporters/lib/Supporters.pm index d16b396..899a6aa 100644 --- a/Supporters/lib/Supporters.pm +++ b/Supporters/lib/Supporters.pm @@ -558,11 +558,8 @@ sub getRequest($$;$) { notes => $req->{$requestType}{'notes'}, }; my $configs = $self->getRequestConfigurations($requestType); - use Data::Dumper; - print "CONFIGS:", Data::Dumper->Dump([$requestType, $configs]); my $configName; foreach my $key (keys %{$configs->{$requestTypeId}}) { - print "TEST: SEEING IF $key is our type... $configs->{$requestTypeId}{$key} == $req->{$requestType}{'type'} ... \n"; if ($configs->{$requestTypeId}{$key} == $req->{$requestType}{'request_configuration_id'}) { $configName = $key; last; } } die("getRequest: discovered database integrity error: request_configuration, \"$req->{$requestType}{request_configuration_id} is " . @@ -576,7 +573,6 @@ sub getRequest($$;$) { return undef if $ignoreFulfilledRequests; $rsp->{fulfillDate} = $fulfillReq->{$requestId}{date}; } - print "RSP RETURING: ", Data::Dumper->Dump([$rsp]); return $rsp; } ######################################################################