]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Only dump debug info when $Scope::Upper::DEBUG is true
authorVincent Pit <vince@profvince.com>
Tue, 18 Aug 2015 13:44:41 +0000 (10:44 -0300)
committerVincent Pit <vince@profvince.com>
Tue, 18 Aug 2015 13:44:41 +0000 (10:44 -0300)
Upper.xs

index f85cc54d6db3294fb905092cf9a2545115230fe3..823b32e38a6556f6f486baec573d2b387467b85c 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
 # 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;
 }