Quiet --pretend output further.

9 years ago · 2d87974100
parent 02c616cbb0
commit 2d87974100
1 changed files with 1 additions and 1 deletions
--- a/modules/ksb/Debug.pm
+++ b/modules/ksb/Debug.pm
@ -185,7 +185,7 @@ sub error(@)

 sub pretend(@)
 {
-    if (pretending()) {
+    if (pretending() && $debugLevel <= WHISPER) {
        my @lines = @_;
        s/(\w)/d[$1/ foreach @lines; # Add dim prefix
                                     # Clear suffix is actually implicit