Description of problem:
Sys::Virt::IDENTITY_SASL_USER_NAME field is passed as VIR_TYPED_PARAM_INT by mistake, but should be VIR_TYPED_PARAM_STRING

Version-Release number of selected component (if applicable):
perl-Sys-Virt-5.8.0-1.module+el8.2.0+4793+b09dd2fb.x86_64

How reproducible:
100%

Steps to Reproduce:
1.
libvirt-tck codes:
my %params = (Sys::Virt::IDENTITY_USER_NAME => 'test',
              Sys::Virt::IDENTITY_UNIX_USER_ID => '1001',
              Sys::Virt::IDENTITY_GROUP_NAME => 'test',
              Sys::Virt::IDENTITY_UNIX_GROUP_ID => '1001',
              Sys::Virt::IDENTITY_PROCESS_ID => '4567',
              Sys::Virt::IDENTITY_PROCESS_TIME => '2094256127',
              Sys::Virt::IDENTITY_SASL_USER_NAME => 'test',
              Sys::Virt::IDENTITY_X509_DISTINGUISHED_NAME => 'test',
              Sys::Virt::IDENTITY_SELINUX_CONTEXT => 'context');

lives_ok( sub {$conn->set_identity(\%params, 0)}, "Set identity OK");

Argument "test" isn't numeric in subroutine entry at 060-interface-list.t line 52.
not ok 1 - Set identity OK
#   Failed test 'Set identity OK'
#   at 060-interface-list.t line 52.
# died: Sys::Virt::Error (libvirt error code: 8, message: invalid argument: invalid type 'int' for parameter 'sasl-user-name', expected 'string'
# )

2. Check libvirt-perl commit d4f1b912fa973b7dd79b6d3d90969baa147840bc

void
set_identity(conn, newident, flags=0)
...
    PPCODE:
      nident = 9;
      Newx(ident, nident, virTypedParameter);

      strncpy(ident[0].field, VIR_CONNECT_IDENTITY_USER_NAME,
              VIR_TYPED_PARAM_FIELD_LENGTH);
      ident[0].type = VIR_TYPED_PARAM_STRING;
...

      strncpy(ident[6].field, VIR_CONNECT_IDENTITY_SASL_USER_NAME,
              VIR_TYPED_PARAM_FIELD_LENGTH);
      ident[6].type = VIR_TYPED_PARAM_INT;                 <=== wrong type


3. Check libvirt commit 305cdc37f0f38a79e541194648e1513d3158a23d

diff --git a/include/libvirt/libvirt-host.h b/include/libvirt/libvirt-host.h
index 7debb5f829..be65b4686b 100644
--- a/include/libvirt/libvirt-host.h
+++ b/include/libvirt/libvirt-host.h
@@ -579,6 +579,80 @@ virConnectPtr           virConnectOpenAuth      (const char *name,
                                                  unsigned int flags);
+
...
+/**
+ * VIR_CONNECT_IDENTITY_SASL_USER_NAME:
+ *
+ * The SASL authenticated username as VIR_TYPED_PARAM_STRING
+ */
+# define VIR_CONNECT_IDENTITY_SASL_USER_NAME "sasl-user-name"
+



...


Actual results:
See above

Expected results:

The API should work correctly.

Additional info: