stas 2003/11/15 12:22:58
Modified: lib/Apache Status.pm Log: disable myconfig for now due to problems with calling Config::myconfig under threads Submitted by: Juanma Barranquero <[EMAIL PROTECTED]> Revision Changes Path 1.12 +7 -2 modperl-2.0/lib/Apache/Status.pm Index: Status.pm =================================================================== RCS file: /home/cvs/modperl-2.0/lib/Apache/Status.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -u -r1.11 -r1.12 --- Status.pm 15 Nov 2003 19:34:32 -0000 1.11 +++ Status.pm 15 Nov 2003 20:22:58 -0000 1.12 @@ -368,8 +368,13 @@ } sub status_myconfig { - require Config; - ["<pre>", Config::myconfig(), "</pre>"] + # XXX: Config::myconfig(); fails under threads with (perl < 5.8.3?) + # "Modification of a read-only value attempted" + # need API to query the mpm and run it only if the mpm is not threaded + # require Config; + # my $myconfig = Config::myconfig(); + my $myconfig = "Under construction"; + ["<pre>", $myconfig, "</pre>"]; }