aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Iurt
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Iurt')
-rw-r--r--lib/Iurt/Util.pm8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Iurt/Util.pm b/lib/Iurt/Util.pm
index 8a06584..47a197b 100644
--- a/lib/Iurt/Util.pm
+++ b/lib/Iurt/Util.pm
@@ -1,6 +1,7 @@
package Iurt::Util;
use base qw(Exporter);
+use Fcntl qw(:flock SEEK_END);
use strict;
our @EXPORT = qw(
@@ -108,7 +109,12 @@ sub plog {
$level = $plog_level{$level};
my ($p, $e) = ($plog_prefix[$level], ($plog_color ? $plog_ctr{normal} : ""));
- print $plog_file "$p@_$e\n" if $plog_level >= $level;
+ if ($plog_level >= $level) {
+ flock($plog_file, LOCK_EX);
+ seek($plog_file, 0, SEEK_END);
+ print $plog_file "$p@_$e\n";
+ flock($plog_file, LOCK_UN);
+ }
}
sub pdie {