INotify.pm - new helper poll_changes

Useful to detect file changes.

Signed-off-by: Dietmar Maurer <dietmar@proxmox.com>
This commit is contained in:
Dietmar Maurer 2018-01-22 12:12:41 +01:00 committed by Wolfgang Bumiller
parent 04cba6c8c1
commit 3b671d82b1

View File

@ -199,6 +199,16 @@ sub discard_changes {
return read_file ($filename, $full);
}
sub poll_changes {
my ($filename) = @_;
poll() if $inotify; # read new inotify events
$versions->{$filename} = 0 if !defined ($versions->{$filename});
return $versions->{$filename};
}
sub read_file {
my ($fileid, $full) = @_;
@ -211,11 +221,7 @@ sub read_file {
my $fd;
my $shadow;
poll() if $inotify; # read new inotify events
$versions->{$filename} = 0 if !defined ($versions->{$filename});
my $cver = $versions->{$filename};
my $cver = poll_changes($filename);
if (my $copy = $shadowfiles->{$filename}) {
if ($fd = IO::File->new ($copy, "r")) {