avoid one-argument "bless"

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

diff --git a/PVE/RADOS.pm b/PVE/RADOS.pm
index 37eb29000347bdf0afe203f984ad5ffb5ffa1bb9..3ee7ab8e62bb188ec4f1fb8fc22036b5304316aa 100644 (file)
--- a/PVE/RADOS.pm
+++ b/PVE/RADOS.pm
@@ -117,7 +117,7 @@ sub new {
 
     die "unable to fork - $!\n" if !defined($cpid);
 
-    my $self = bless {};
+    my $self = bless {}, $class;
 
     my $timeout = delete $params{timeout} || $rados_default_timeout;