Merged with master and am ready to merge back

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep.pm

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 80900e8..277fbe9 100644 (file)
--- a/lib/DBM/Deep.pm
+++ b/lib/DBM/Deep.pm
@@ -587,7 +587,7 @@ sub CLEAR {
         $engine->clear( $self );
     };
     my $e = $@;
-    warn "$e\n" if $e;
+    warn "$e\n" if $e && DEBUG;
 
     $self->unlock;