detect forked connections

Else more than one process can kill our worker!

diff --git a/PVE/RADOS.pm b/PVE/RADOS.pm
index 76c9d7b9d0d9477067b143880206e7f7fa642ba7..c8044b7074ecbd8b3fe7264a6cacb0b341f60089 100644 (file)
--- a/PVE/RADOS.pm
+++ b/PVE/RADOS.pm
@@ -83,6 +83,9 @@ my $kill_worker = sub {
 
     close($self->{child}) if defined($self->{child});
 
+    # only kill if we created the process
+    return if $self->{pid} != $$; 
+
     kill(9, $self->{cpid});
     waitpid($self->{cpid}, 0);
 };
@@ -92,6 +95,8 @@ my $sendcmd = sub {
 
     $expect_tag = '>' if !$expect_tag;
 
+    die "detected forked connection" if $self->{pid} != $$;
+
     my ($restag, $raw);
     my $code = sub {
        &$writedata($self->{child}, $cmd, $data) if $expect_tag ne 'S';
@@ -129,6 +134,7 @@ sub new {
     my $timeout = delete $params{timeout} || $rados_default_timeout;
 
     $self->{timeout} = $timeout;
+    $self->{pid} = $$;
 
     if ($cpid) { # parent
        close $parent;