Changeset 9 for trunk

Show
Ignore:
Timestamp:
08/08/07 22:30:05 (7 years ago)
Author:
jesus
Message:

Require 'PerlSetVar? Debug 1' to get nice (and revealing) debugging output, refs #3

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • trunk/lib/Mungo/Response.pm

    r8 r9  
    149149 
    150150      if($contents) { 
    151         print Mungo::pretty_print_code($preamble, $contents, $postamble, $href->{callstack}->[0]->[2]); 
     151        if($self->{'Apache::Request'}->dir_config('Debug')) { 
     152          print Mungo::pretty_print_code($preamble, $contents, $postamble, $href->{callstack}->[0]->[2]); 
     153        } 
    152154      } else { 
    153155        print '<pre>'.Dumper($@).'</pre>'; 
  • trunk/tests/httpd.conf.in

    r2 r9  
    1717<FilesMatch "\.asp$"> 
    1818  PerlSetVar StatINC 1 
     19  PerlSetVar Debug 1 
    1920  SetHandler perl-script 
    2021  PerlHandler Mungo