diff --git a/src/lib/Gitolite/Common.pm b/src/lib/Gitolite/Common.pm
index 03008b3..b5c4b47 100644
--- a/src/lib/Gitolite/Common.pm
+++ b/src/lib/Gitolite/Common.pm
@@ -12,6 +12,8 @@ package Gitolite::Common;
           usage                             tsh_run
           gen_lfn
           gl_log
+
+          dd
 );
 #>>>
 use Exporter 'import';
@@ -63,6 +65,11 @@ sub dbg {
     }
 }
 
+sub dd {
+    local $ENV{D} = 1;
+    dbg(@_);
+}
+
 sub _warn {
     gl_log( 'warn', @_ );
     if ( $ENV{D} and $ENV{D} >= 3 ) {