[PATCH qemu-server 2/2] qmp helpers: use v5.36 and signatures

[Fiona Ebner <f.ebner@proxmox.com>]

Signed-off-by: Fiona Ebner <f.ebner@proxmox.com>
---
 src/PVE/QemuServer/QMPHelpers.pm | 27 +++++++--------------------
 1 file changed, 7 insertions(+), 20 deletions(-)

diff --git a/src/PVE/QemuServer/QMPHelpers.pm b/src/PVE/QemuServer/QMPHelpers.pm
index 9e0996cc..b4c6d1e7 100644
--- a/src/PVE/QemuServer/QMPHelpers.pm
+++ b/src/PVE/QemuServer/QMPHelpers.pm
@@ -1,7 +1,6 @@
 package PVE::QemuServer::QMPHelpers;
 
-use warnings;
-use strict;
+use v5.36;
 
 use PVE::QemuServer::Helpers;
 use PVE::QemuServer::Monitor qw(mon_cmd);
@@ -15,37 +14,27 @@ our @EXPORT_OK = qw(
     qemu_objectdel
 );
 
-sub nbd_stop {
-    my ($vmid) = @_;
-
+sub nbd_stop($vmid) {
     mon_cmd($vmid, 'nbd-server-stop', timeout => 25);
 }
 
-sub qemu_deviceadd {
-    my ($vmid, $devicefull) = @_;
-
+sub qemu_deviceadd($vmid, $devicefull) {
     $devicefull = "driver=" . $devicefull;
 
     PVE::QemuServer::Monitor::hmp_cmd($vmid, "device_add $devicefull", 25);
 }
 
-sub qemu_devicedel {
-    my ($vmid, $deviceid) = @_;
-
+sub qemu_devicedel($vmid, $deviceid) {
     PVE::QemuServer::Monitor::hmp_cmd($vmid, "device_del $deviceid", 25);
 }
 
-sub qemu_objectadd {
-    my ($vmid, $objectid, $qomtype, %args) = @_;
-
+sub qemu_objectadd($vmid, $objectid, $qomtype, %args) {
     mon_cmd($vmid, "object-add", id => $objectid, "qom-type" => $qomtype, %args);
 
     return 1;
 }
 
-sub qemu_objectdel {
-    my ($vmid, $objectid) = @_;
-
+sub qemu_objectdel($vmid, $objectid) {
     mon_cmd($vmid, "object-del", id => $objectid);
 
     return 1;
@@ -53,9 +42,7 @@ sub qemu_objectdel {
 
 # dies if a) VM not running or not existing b) Version query failed
 # So, any defined return value is valid, any invalid state can be caught by eval
-sub runs_at_least_qemu_version {
-    my ($vmid, $major, $minor, $extra) = @_;
-
+sub runs_at_least_qemu_version($vmid, $major, $minor, $extra = undef) {
     my $v = PVE::QemuServer::Monitor::mon_cmd($vmid, 'query-version');
     die "could not query currently running version for VM $vmid\n" if !defined($v);
     $v = $v->{qemu};
-- 
2.47.3