diff options
author | Dominique Dumont <dod@debian.org> | 2021-06-04 18:48:09 +0200 |
---|---|---|
committer | Dominique Dumont <dod@debian.org> | 2021-06-04 18:48:09 +0200 |
commit | c7315a25a245c07139e04c073a9cd56c2ad8d1f6 (patch) | |
tree | 8ff92eee49f32e1add21646b7e5af1c92370b266 | |
parent | 06a9f339d4bb62fb6304c570300be9c9f93395c2 (diff) |
do not use $a magic variable
-rw-r--r-- | lib/Config/Model/Backend/Dpkg/Copyright.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Config/Model/Backend/Dpkg/Copyright.pm b/lib/Config/Model/Backend/Dpkg/Copyright.pm index 755af369..ed36faf7 100644 --- a/lib/Config/Model/Backend/Dpkg/Copyright.pm +++ b/lib/Config/Model/Backend/Dpkg/Copyright.pm @@ -130,15 +130,15 @@ sub read ($self, %args) { ## no critic (ProhibitBuiltinHomonyms) elsif (defined $section{license}) { # license_paragragh hash is used to contain license data indexed by license names # license name contains only one line - my ($v,$l, $a) = $section{license}[0]->@* ; + my ($v,$l, $author) = $section{license}[0]->@* ; # need to extract license name from license text my ($lic_name) = ($v =~ /^([^\n]+)/) ; if (not defined $lic_name) { $lic_name = 'other'; - $a = $section{license}[2] = q!use 'other' to replace undefined license name!; + $author = $section{license}[2] = q!use 'other' to replace undefined license name!; } if ($logger->is_debug) { - my $a_str = $a ? "altered: '$a' ":'' ; + my $a_str = $author ? "altered: '$author' ":'' ; $logger->debug("Found license paragraph line $l, $a_str ($lic_name)"); } $license_paragraph{$lic_name} = $section_ref ; |