[MKDoc-commit] mod_perl bug where $::MKD_CONFIG would appear to exist even when it

[bruno at mkdoc.demon.co.uk]

Log Message:
-----------
mod_perl bug where $::MKD_CONFIG would appear to exist even when it didn't

Tags:
----
mkdoc-1-6

Modified Files:
--------------
    mkd/MKDoc:
        Config.pm

-------------- next part --------------
Index: Config.pm
===================================================================
RCS file: /var/spool/cvs/mkd/MKDoc/Config.pm,v
retrieving revision 1.8.2.45
retrieving revision 1.8.2.46
diff -LMKDoc/Config.pm -LMKDoc/Config.pm -u -r1.8.2.45 -r1.8.2.46
--- MKDoc/Config.pm
+++ MKDoc/Config.pm
@@ -261,7 +261,7 @@
 ##
 sub new
 {
-    $::MKD_CONFIG ||= { _make_config() };
+    $::MKD_CONFIG = { _make_config() } unless $::MKD_CONFIG->{'do_i_really_exist'};
     
     my $class = shift;
     $class = ref $class || $class;
@@ -272,6 +272,7 @@
 
 
 sub _make_config {
+    'do_i_really_exist'                             => '',
     'flo.plugin.Discussion.List.slice_thickness'    => get_env ('MKD__PLUGIN_DISCUSSION_PER_PAGE')  || 50,
     'flo.plugin.Photo.scaled_max_x'                 => get_env ('MKD__PLUGIN_PHOTO_SCALED_X')       || 512,
     'flo.plugin.Photo.scaled_max_y'                 => get_env ('MKD__PLUGIN_PHOTO_SCALED_Y')       || 384,