sub update {
my ($proxy) = @_;
- my $size;
- if (($size = (-s $logfile) || 0) > (1024*50)) {
- rename($logfile, "$logfile.0");
+ my $logfile_size = -s $logfile || 0;
+ if ($logfile_size > 1024 * 256) {
+ rename($logfile, "$logfile.0") or warn "failed to rotate log file $logfile - $!\n";
}
my $logfd = IO::File->new (">>$logfile");
logmsg($logfd, "starting update");