This is an automated email from the git hooks/post-receive script. guillem pushed a commit to branch main in repository dpkg.
View the commit online: https://git.dpkg.org/cgit/dpkg/dpkg.git/commit/?id=fb10bcc9914beed5b779ac4fda86eaa784aa8c69 commit fb10bcc9914beed5b779ac4fda86eaa784aa8c69 Author: Guillem Jover <[email protected]> AuthorDate: Sun Feb 19 00:38:23 2023 +0100 dpkg-scansources: Reorder captured variable and regex match The immediately preceding regex does not capture, but this seems to be confusing perlcritic, as we then use a captured variable which is already being conditionally used. Warned-by: perlcritic Addresses: RegularExpressions::ProhibitCaptureWithoutTest --- scripts/dpkg-scansources.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scripts/dpkg-scansources.pl b/scripts/dpkg-scansources.pl index da19ba7b2..c74f1301f 100755 --- a/scripts/dpkg-scansources.pl +++ b/scripts/dpkg-scansources.pl @@ -127,8 +127,8 @@ sub load_override { if (!defined $maintainer) { # do nothing } elsif ($maintainer =~ /^(.*\S)\s*=>\s*(.*)$/) { - $override{$package}[O_MAINT_FROM] = [split m{\s*//\s*}, $1]; $override{$package}[O_MAINT_TO] = $2; + $override{$package}[O_MAINT_FROM] = [split m{\s*//\s*}, $1]; } else { $override{$package}[O_MAINT_TO] = $maintainer; } -- Dpkg.Org's dpkg
