From cbfff937aee4f2657cea0c04dad128013f400dfc Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Mon, 25 Nov 2019 11:16:38 +0100 Subject: [PATCH] version_cmp: give info about caller on error Signed-off-by: Thomas Lamprecht --- PVE/QemuServer/Helpers.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/PVE/QemuServer/Helpers.pm b/PVE/QemuServer/Helpers.pm index 0bd97c3..0e78f36 100644 --- a/PVE/QemuServer/Helpers.pm +++ b/PVE/QemuServer/Helpers.pm @@ -122,7 +122,11 @@ sub version_cmp { my $size = scalar(@versions); return 0 if $size == 0; - die "cannot compare odd count of versions" if $size & 1; + + if ($size & 1) { + my (undef, $fn, $line) = caller(0); + die "cannot compare odd count of versions, called from $fn:$line\n"; + } for (my $i = 0; $i < $size; $i += 2) { my ($a, $b) = splice(@versions, 0, 2); -- 2.39.2