Only dump debug info when $Scope::Upper::DEBUG is true

diff --git a/Upper.xs b/Upper.xs
index f85cc54d6db3294fb905092cf9a2545115230fe3..823b32e38a6556f6f486baec573d2b387467b85c 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -54,9 +54,12 @@
 # define SU_D(X) STMT_START X STMT_END
 static void su_debug_log(const char *fmt, ...) {
  va_list va;
 # define SU_D(X) STMT_START X STMT_END
 static void su_debug_log(const char *fmt, ...) {
  va_list va;

+ SV *sv;

  dTHX;
  va_start(va, fmt);
  dTHX;
  va_start(va, fmt);

- PerlIO_vprintf(Perl_debug_log, fmt, va);
+ sv = get_sv(__PACKAGE__ "::DEBUG", 0);
+ if (sv && SvTRUE(sv))
+  PerlIO_vprintf(Perl_debug_log, fmt, va);

  va_end(va);
  return;
 }
  va_end(va);
  return;
 }