-my $find_free_diskname = sub {
- my ($imgdir, $vmid, $fmt, $scfg) = @_;
-
- my $disk_list = [];
-
- my $dh = IO::Dir->new ($imgdir);
- @$disk_list = $dh->read() if defined($dh);
-
- return PVE::Storage::Plugin::get_next_vm_diskname($disk_list, $imgdir, $vmid, $fmt, $scfg, 1);
-};
-