Parent Directory | Revision Log | Patch
revision 118 by dpavlin, Mon Aug 3 08:52:32 2009 UTC | revision 124 by dpavlin, Mon Aug 3 12:19:22 2009 UTC | |
---|---|---|
# | Line 17 use config; | Line 17 use config; |
17 | our $debug; | our $debug; |
18 | sub debug { $debug = config::shared('debug', @_) || 0 } | sub debug { $debug = config::shared('debug', @_) || 0 } |
19 | ||
my $timestamp_interval = 3; | ||
my $stderr_tell = 0; | ||
$SIG{ALRM} = sub { | ||
if ( tell(STDERR) != $stderr_tell ) { | ||
warn "\nTIMESTAMP: " . localtime() . "\n\n"; | ||
$stderr_tell = tell(STDERR); | ||
Module::Refresh->refresh; | ||
} | ||
alarm $timestamp_interval; | ||
}; | ||
alarm $timestamp_interval; | ||
20 | warn "loaded"; | warn "loaded"; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |