[PATCH common 1/1] fix #7445: Silence non-portable hexadecimal

[Laurent Corbes <laurent.corbes@enix.fr>]

Fix a warning about non-portable perl hexadecimal number. This is
knowned to be ok, but this flood the logs with a lot of garbage
messages.

Signed-off-by: Laurent Corbes <laurent.corbes@enix.fr>
---
 src/PVE/UPID.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/PVE/UPID.pm b/src/PVE/UPID.pm
index 1cb671d..b914b90 100644
--- a/src/PVE/UPID.pm
+++ b/src/PVE/UPID.pm
@@ -39,8 +39,8 @@ sub decode($upid, $noerr = 0) {
             node => $1,
             pid => hex($3),
             # NOTE: for 9-digit hex-number perl warns about non-portable, but it still works as
-            # asserted by a test case, we could silence the WARN handler or use Math::BigInt?
-            pstart => hex($4),
+            # asserted by a test case, so we silence the WARN
+            pstart => do { no warnings 'portable'; hex($4) },
             starttime => hex($5),
             type => $6,
             id => $7,
-- 
2.43.0