• handler.pl.proto

    596 597  
    74 74 use locale;
    75 75 my $_comm = $_comments{$r->content_type};
    76 76 my $s_time_ = [Time::HiRes::gettimeofday];
    77 warn "Start: ".$m->current_comp->path."\n";
    77 78 if ($_comm) {
    78 79 $m->out("\n".$$_comm[0]." ".$m->current_comp->path.":\tStart t: ".Time::HiRes::time." ".$$_comm[1]."\n");
    79 80 }|;
    80 81 $ah_args{postamble} = q|
    82 warn "Timing: ".$m->current_comp->path.":\t".sprintf('%.1f ms', Time::HiRes::tv_interval($s_time_) * 1000)."\n";
    81 83 if ($_comm) {
    82 84 $m->out("\n".$$_comm[0]." ".$m->current_comp->path.":\tFinish t: ".Time::HiRes::time.", w: ".sprintf('%.4f', Time::HiRes::tv_interval($s_time_))." ".$$_comm[1]."\n");
    83 85 }|;
    … …  
    87 89 |;
    88 90 }
    89 91 } else {
    90 $ah_args{preamble} = q|
    92 if (lc '@COMP_TIMINGS_DISABLE@' ne 'yes') {
    93 $ah_args{preamble} = q|
    91 94 use locale;
    92 |;
    95 my $s_time_ = [Time::HiRes::gettimeofday];
    96 |;
    97 $ah_args{postamble} = q|
    98 warn "Timing: ".$m->current_comp->path.":\t".sprintf('%.1f ms', Time::HiRes::tv_interval($s_time_) * 1000)."\n";
    99 |;
    100 } else {
    101 $ah_args{preamble} = q|
    102 use locale;
    103 |;
    104 }
    93 105 $ah_args{error_mode} = lc('@ERROR_MODE@') eq 'output' ? 'output':'fatal';
    94 106 $ah_args{preloads} = [qw(@PRELOADS@)];
    95 107 if (lc('@STATIC_SOURCE_ENABLE@') eq 'yes') {