Produits Entr'ouvert » Lasso

My application is currently doing something like this to load multiple SP metadatas into an IDP server:

use Lasso;
my $server = new Lasso::Server("metadata.xml", "private-key.pem");

# for each provider I want to load
$server->add_provider_from_buffer(Lasso::Constants::PROVIDER_ROLE_SP, "sp.xml");

This has been working fine for years now. However, I would like to extract the entityID of each provider as I load it into the server. For logging purposes among other things.

I would like to avoid parsing the XML metadata a second time to extract the entityID field. After reading the API docs, it seems like the following approach should work:

use Lasso;
my $server = new Lasso::Server("metadata.xml", "private-key.pem");

# For each provider I want to load:
my $provider = new Lasso::Provider(Lasso::Constants::PROVIDER_ROLE_SP,"sp.xml");
my $entityID=$provider->ProviderID;
# Do something interesting with $entityID....
$server->add_provider2($provider);

However, running this particular perl script yields the following, and rather scary warning:

Attempt to free unreferenced scalar: SV 0x5618e45d2f48, Perl interpreter: 0x5618e45d0010 at test.pl line 10.

Tested with PERL v5.24.1 and v5.28.1 (debian stretch and buster), using Lasso's git master branch, metadata files used in my script come from the Lasso test suite, any metadata file I try yields the same result.

Am I doing something wrong here? This seems like a reference counting issue when registering the provider. Is there another way I could extract the entityID from a metadatafile before registering it into the server that I haven't found?

Thanks for your help.