do not use $a magic variable

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 ;