diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-08-11 10:26:12 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2018-08-11 10:32:24 +0100 |
commit | 1d853dafdff2782206dfc39be74ca372b32f09eb (patch) | |
tree | d671976ad7358fb3b769ab5f2142622943dbf60e /Debian/Dgit.pm | |
parent | 9d98fd69e8abee17a59d27023e87215d55eb9385 (diff) |
Dgit.pm: Introduce $printdebug_when_debuglevel
This is intended to be usefully localisable.
NFC.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
Diffstat (limited to 'Debian/Dgit.pm')
-rw-r--r-- | Debian/Dgit.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Debian/Dgit.pm b/Debian/Dgit.pm index 1cd765d..67db526 100644 --- a/Debian/Dgit.pm +++ b/Debian/Dgit.pm @@ -66,6 +66,7 @@ BEGIN { $ffq_refprefix $gdrlast_refprefix initdebug enabledebug enabledebuglevel printdebug debugcmd + $printdebug_when_debuglevel $debugprefix *debuglevel *DEBUG shellquote printcmd messagequote $negate_harmful_gitattrs @@ -100,6 +101,7 @@ our $orig_f_tail_re = "$orig_f_comp_re\\.tar(?:\\.\\w+)?(?:$orig_f_sig_re)?"; our $git_null_obj = '0' x 40; our $ffq_refprefix = 'ffq-prev'; our $gdrlast_refprefix = 'debrebase-last'; +our $printdebug_when_debuglevel = 1; # policy hook exit status bits # see dgit-repos-server head comment for documentation @@ -156,7 +158,8 @@ sub enabledebuglevel ($) { } sub printdebug { - print DEBUG $debugprefix, @_ or die $! if $debuglevel>0; + print DEBUG $debugprefix, @_ or die $! + if $debuglevel >= $printdebug_when_debuglevel; } sub messagequote ($) { |