fix one debug regression

Author: HenrikBengtsson

R/BatchtoolsFuture-class.R

@@ -659,7 +659,7 @@ await <- function(future, cleanup = TRUE,
 
   result <- NULL
   if (finished) {
-    mdebug("Results:")
+    if (debug) mdebug("Results:")
     label <- sQuoteLabel(future)
     if ("finished" %in% stat) {
       result <- local({

R/zzz.R

@@ -2,7 +2,7 @@
 .onLoad <- function(libname, pkgname) {
   import_future_functions()
 
-  debug <- getOption("future.debug", FALSE)
+  debug <- isTRUE(getOption("future.debug"))
 
   inRCmdCheck <- import_parallelly("inRCmdCheck")
   if (inRCmdCheck()) {