X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBM%2FDeep.pm;fp=lib%2FDBM%2FDeep.pm;h=277fbe90128803832fd1c96a60078880efcaa0d3;hb=HEAD;hp=80900e815febb7b6bf3eeee7b10291f2d0ade877;hpb=417f635b9e397a107625ab7c71b85548cdf0e32d;p=dbsrgits%2FDBM-Deep.git

diff --git a/lib/DBM/Deep.pm b/lib/DBM/Deep.pm
index 80900e8..277fbe9 100644
--- 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;