rename variable in debian/gen-copyright
authorgregor herrmann <gregoa@debian.org>
Mon, 22 Jan 2018 17:48:05 +0000 (18:48 +0100)
committergregor herrmann <gregoa@debian.org>
Mon, 22 Jan 2018 17:48:05 +0000 (18:48 +0100)
Gbp-Dch: Ignore

debian/gen-copyright

index b796778..d2e938e 100755 (executable)
@@ -17,16 +17,16 @@ close $infh;
 
 my $list;
 foreach my $file ( glob("*.xml") ) {
-    my $csl = XMLin(
+    my $xml = XMLin(
         $file,
         KeyAttr => { translator => "+name", contributor => "+name" },
         ForceArray => [ "translator", "contributor" ]
     );
 
-    my $translators  = $csl->{info}->{translator};
-    my $contributors = $csl->{info}->{contributor}
+    my $translators  = $xml->{info}->{translator};
+    my $contributors = $xml->{info}->{contributor}
         unless $translators;    # only if we have no translator(s)
-    my $updated      = $csl->{info}->{updated};
+    my $updated      = $xml->{info}->{updated};
     my $year         = $1 if $updated =~ m/^(\d{4}).+/;
 
     my $copyright;