config: make full parser private sub

[pve-container.git] / src / PVE / LXC / Config.pm

diff --git a/src/PVE/LXC/Config.pm b/src/PVE/LXC/Config.pm
index e7fe99b57a2063292eb0dd79ef0a63351cb585d2..1aab6d40a26bcea59467e738bb1899ef7f183695 100644 (file)
--- a/src/PVE/LXC/Config.pm
+++ b/src/PVE/LXC/Config.pm
@@ -1033,7 +1033,7 @@ sub json_config_properties {
     return $prop;
 }
 
-sub __parse_ct_mountpoint_full {
+my $parse_ct_mountpoint_full = sub {
     my ($class, $desc, $data, $noerr) = @_;
 
     $data //= '';
@@ -1070,11 +1070,11 @@ sub parse_volume {
     my ($class, $key, $volume_string, $noerr) = @_;
 
     if ($key eq 'rootfs') {
-       my $res =  $class->__parse_ct_mountpoint_full($rootfs_desc, $volume_string, $noerr);
+       my $res =  $parse_ct_mountpoint_full->($class, $rootfs_desc, $volume_string, $noerr);
        $res->{mp} = '/' if defined($res);
        return $res;
     } elsif ($key =~ m/^mp\d+$/ || $key =~ m/^unused\d+$/) {
-       return $class->__parse_ct_mountpoint_full($mp_desc, $volume_string, $noerr);
+       return $parse_ct_mountpoint_full->($class, $mp_desc, $volume_string, $noerr);
     }
 
     die "parse_volume - unknown type: $key\n";