X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=blobdiff_plain;f=Upper.xs;h=823b32e38a6556f6f486baec573d2b387467b85c;hp=f85cc54d6db3294fb905092cf9a2545115230fe3;hb=c8b3fd1af4c37a5d52756381215a5d4117b5b44f;hpb=8596ba5e15fc913103009f3cd5a0aa996e0075ab

diff --git a/Upper.xs b/Upper.xs
index f85cc54..823b32e 100644
--- 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;
+ SV *sv;
  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;
 }