Fixed dbug

[clearscm.git] / lib / Logger.pm

diff --git a/lib/Logger.pm b/lib/Logger.pm
index a1ad323..27f7a8d 100644 (file)
--- a/lib/Logger.pm
+++ b/lib/Logger.pm
@@ -83,7 +83,7 @@ use Utils;
 
 my ($error_color, $warning_color, $command_color, $highlight_color, $normal) = "";
 
-my $me;
+our $me;
 
 BEGIN {
   # Extract relative path and basename from script name.
@@ -845,7 +845,7 @@ Returns:
 sub dbug($) {
   my ($self, $msg) = @_;
 
-  $self->log("DEBUG: $msg") unless get_debug;
+  $self->log("DEBUG: $msg") if get_debug;
 
   return;
 } # dbug