(minor) add a 'dd' function to quickly dump stuff to STDERR

This commit is contained in:
Sitaram Chamarty 2012-08-17 10:04:32 +05:30
parent ba67f6f9ca
commit 7409635823

View file

@ -12,6 +12,8 @@ package Gitolite::Common;
usage tsh_run usage tsh_run
gen_lfn gen_lfn
gl_log gl_log
dd
); );
#>>> #>>>
use Exporter 'import'; use Exporter 'import';
@ -63,6 +65,11 @@ sub dbg {
} }
} }
sub dd {
local $ENV{D} = 1;
dbg(@_);
}
sub _warn { sub _warn {
gl_log( 'warn', @_ ); gl_log( 'warn', @_ );
if ( $ENV{D} and $ENV{D} >= 3 ) { if ( $ENV{D} and $ENV{D} >= 3 ) {