--- mk-audit.orig	2011-02-09 23:05:53.000000000 +0100
+++ mk-audit	2011-02-09 23:10:29.000000000 +0100
@@ -36,7 +36,7 @@
 
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 ( our $before = <<'EOF') =~ s/^   //gm;
    /*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
@@ -345,7 +345,7 @@
 use List::Util qw(max);
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 my $POD_link_re = '[LC]<"?([^">]+)"?>';
 
@@ -1178,7 +1178,7 @@
 use warnings FATAL => 'all';
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class ) = @_;
@@ -1477,7 +1477,7 @@
 $Data::Dumper::Quotekeys = 0;
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class, @opts ) = @_;
@@ -1832,7 +1832,7 @@
 
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class ) = @_;
@@ -1881,7 +1881,7 @@
 
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class ) = @_;
@@ -1939,7 +1939,7 @@
 
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub server_specs {
    my %server;
@@ -2349,7 +2349,7 @@
 use Data::Dumper;
 $Data::Dumper::Indent = 1;
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 my $option_pattern = '([^\s=]+)(?:=(\S+))?';
 
@@ -2795,7 +2795,7 @@
 
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class, %args ) = @_;
@@ -2940,7 +2940,7 @@
 use English qw(-no_match_vars);
 use List::Util qw(max);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 my %checks = (
    innodb_flush_method =>
@@ -3092,7 +3092,7 @@
 use warnings FATAL => 'all';
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class, %args ) = @_;
@@ -3151,7 +3151,7 @@
 use warnings FATAL => 'all';
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 my %check_for_priv = (
    'PROCESS' => sub {
@@ -3205,7 +3205,7 @@
 use Time::Local qw(timelocal);
 use Digest::MD5 qw(md5_hex);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 require Exporter;
 our @ISA         = qw(Exporter);
@@ -3404,7 +3404,7 @@
 
 Transformers->import( qw(micro_t shorten secs_to_time) );
 
-use constant MKDEBUG     => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 use constant LINE_LENGTH => 74;
 
 sub new {
@@ -3730,7 +3730,7 @@
 use POSIX qw(setsid);
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub new {
    my ( $class, %args ) = @_;
@@ -3909,7 +3909,7 @@
 
 use English qw(-no_match_vars);
 
-use constant MKDEBUG => $ENV{MKDEBUG};
+use constant MKDEBUG => $ENV{MKDEBUG}?$ENV{MKDEBUG}:0;
 
 sub main {
    @ARGV = @_;  # set global ARGV for this package