version_cmp: give info about caller on error

[qemu-server.git] / PVE / QemuServer / Helpers.pm

diff --git a/PVE/QemuServer/Helpers.pm b/PVE/QemuServer/Helpers.pm
index 0bd97c342c9ffbe3f705344d7d3cafd1e1dfce4e..0e78f36ab711e16987cf14fcb04bff1b23782c4d 100644 (file)
--- 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);