[PATCH FOLLOW-UP qemu-server 3/4] generate_backing_blockdev: use current_sub for private recursive

[Alexandre Derumier]

Signed-off-by: Alexandre Derumier <alexandre.derumier at groupe-cyllene.com>
---
 src/PVE/QemuServer/Blockdev.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/PVE/QemuServer/Blockdev.pm b/src/PVE/QemuServer/Blockdev.pm
index dd975e3c..73eb7c1e 100644
--- a/src/PVE/QemuServer/Blockdev.pm
+++ b/src/PVE/QemuServer/Blockdev.pm
@@ -367,9 +367,8 @@ my sub generate_format_blockdev {
     return $blockdev;
 }
 
-my sub generate_backing_blockdev;
-
-sub generate_backing_blockdev {
+my sub generate_backing_blockdev {
+    use feature 'current_sub';
     my ($storecfg, $snapshots, $deviceid, $drive, $machine_version, $options) = @_;
 
     my $snap_id = $options->{'snapshot-name'};
@@ -386,7 +385,7 @@ sub generate_backing_blockdev {
 
     if ($parentid) {
         my $options = { 'snapshot-name' => $parentid };
-        $snap_fmt_blockdev->{backing} = generate_backing_blockdev(
+        $snap_fmt_blockdev->{backing} = __SUB__->(
             $storecfg, $snapshots, $deviceid, $drive, $machine_version, $options,
         );
     }
-- 
2.39.5