depend on libpve-access-control

[librados2-perl.git] / PVE / RADOS.pm

diff --git a/PVE/RADOS.pm b/PVE/RADOS.pm
index a9d5dfd44ed4cad0642cb57a0c63f092a065aff5..f40f0a0db9af4cc574443ffb33f966c581cd31f8 100644 (file)
--- a/PVE/RADOS.pm
+++ b/PVE/RADOS.pm
@@ -6,7 +6,9 @@ use warnings;
 use Carp;
 use JSON;
 use Socket;
- 
+use PVE::INotify;
+use PVE::RPCEnvironment;
+
 require Exporter;
 
 our @ISA = qw(Exporter);
@@ -77,6 +79,8 @@ my $readdata = sub {
 sub new {
     my ($class, %params) = @_;
 
+    my $rpcenv = PVE::RPCEnvironment::get();
+
     socketpair(my $child, my $parent, AF_UNIX, SOCK_STREAM, PF_UNSPEC)
        ||  die "socketpair: $!";
 
@@ -99,7 +103,13 @@ sub new {
 
     } else { # child
        $0 = 'pverados';
- 
+
+       PVE::INotify::inotify_close();
+
+       if (my $atfork = $rpcenv->{atfork}) {
+           &$atfork();
+       }
+
        # fixme: timeout?
 
        close $child;