From b3f002dd12198d1e2d8d112af247ba14de9c9f2d Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Tue, 2 Aug 2016 18:54:14 +0200
Subject: [PATCH] less noise on stdout
---
textarchive/lib/TA/ObjReg.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/textarchive/lib/TA/ObjReg.pm b/textarchive/lib/TA/ObjReg.pm
index 49ac8f4..7307572 100644
--- a/textarchive/lib/TA/ObjReg.pm
+++ b/textarchive/lib/TA/ObjReg.pm
@@ -185,8 +185,8 @@ sub lookup
my $search= shift;
my $be= $obj->{'cfg'}->{'backend'};
- print "lookup [$search] be=[$be]\n";
- print main::Dumper ($search);
+ # print "lookup [$search] be=[$be] ", join (' ', %$search), "\n";
+ # print main::Dumper ($search);
my $reg;
if ($be eq 'TA::Hasher')
--
GitLab