Hi, I did some debugging. The cause seems to be in parse_href() in /usr/share/perl5/Devscripts/Uscan/http.pm.
This code (else part) adds the dot:
> if ($self->versionless) {
>
> # exception, otherwise $mangled_version = 1
> $mangled_version = '';
> } else {
> $mangled_version = join(".",
> map { $_ if defined($_) }
> ref $match eq 'ARRAY' ? @$match : $href =~ m&^$_pattern$&);
> }
>
And this is due to me using a parenthesis within the parenthesis:
([0-9]+(-hf[0-9]*)?)
I now changed that to
([0-9]+(?:-hf[0-9]*)?)
and this seems to work.
I might have caught a corner case here. I mean the second match is empty and
shouldn't be added. But if that is intentional, please feel free to close this
report.
Regards, Daniel
--
Regards,
Daniel Leidert <[email protected]> | https://www.wgdd.de/
GPG-Key RSA4096 / BEED4DED5544A4C03E283DC74BCD0567C296D05D
GPG-Key ED25519 / BD3C132D8B3805D1808123AB7ACE00941E338C78
https://www.fiverr.com/dleidert
https://www.patreon.com/join/dleidert
signature.asc
Description: This is a digitally signed message part
