To avoid Perl auto-attaching the line number and file. Signed-off-by: Fiona Ebner <f.eb...@proxmox.com> --- src/PVE/QemuServer/Drive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/PVE/QemuServer/Drive.pm b/src/PVE/QemuServer/Drive.pm index 50855ea8..9dc4e674 100644 --- a/src/PVE/QemuServer/Drive.pm +++ b/src/PVE/QemuServer/Drive.pm @@ -861,8 +861,8 @@ sub print_drive { sub get_drive_id { my ($drive) = @_; - die "get_drive_id: no interface" if !defined($drive->{interface}); - die "get_drive_id: no index" if !defined($drive->{index}); + die "get_drive_id: no interface\n" if !defined($drive->{interface}); + die "get_drive_id: no index\n" if !defined($drive->{index}); return "$drive->{interface}$drive->{index}"; } -- 2.47.2 _______________________________________________ pve-devel mailing list pve-devel@lists.proxmox.com https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel