disks: fixup join usage

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/PVE/Diskmanage.pm b/PVE/Diskmanage.pm
index 6db527914e64ab3a59fd33d75969cc45e7f2f16a..55da2e5f285a34b70c5c9e27fa8220866efb8710 100644 (file)
--- a/PVE/Diskmanage.pm
+++ b/PVE/Diskmanage.pm
@@ -916,7 +916,7 @@ sub wipe_blockdev {
     });
 
     if (scalar($to_wipe->$#*) > 0) {
-       print "found child partitions to wipe: ". join($to_wipe->@*, ',') ."\n";
+       print "found child partitions to wipe: ". join(', ', $to_wipe->@*) ."\n";
     }
     push $to_wipe->@*, $devpath; # put actual device last