diff options
| author | Guillem Jover <guillem@debian.org> | 2013-04-21 06:10:17 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2013-04-30 20:59:27 +0200 |
| commit | 62bc788a45e4a641c28ca9c8c5b9bb08f29faed8 (patch) | |
| tree | 440e84bf7a9a0ec56aea27cd7f5568ca581b2d46 /scripts/dpkg-gencontrol.pl | |
| parent | d6851023a9ab87e3109fca3f2f9c6b5210575663 (diff) | |
| download | dpkg-62bc788a45e4a641c28ca9c8c5b9bb08f29faed8.tar.gz | |
Do not quote simple identifier hash keys in element accesses
Addresses ValuesAndExpressions::ProhibitInterpolationOfLiterals.
Warned-by: perlcritic
Diffstat (limited to 'scripts/dpkg-gencontrol.pl')
| -rwxr-xr-x | scripts/dpkg-gencontrol.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl index 516a593a3..f032b6138 100755 --- a/scripts/dpkg-gencontrol.pl +++ b/scripts/dpkg-gencontrol.pl @@ -137,11 +137,11 @@ while (@ARGV) { umask 0022; # ensure sane default permissions for created files my %options = (file => $changelogfile); -$options{"changelogformat"} = $changelogformat if $changelogformat; +$options{changelogformat} = $changelogformat if $changelogformat; my $changelog = changelog_parse(%options); if ($changelog->{"Binary-Only"}) { - $options{"count"} = 1; - $options{"offset"} = 1; + $options{count} = 1; + $options{offset} = 1; my $prev_changelog = changelog_parse(%options); $sourceversion = $prev_changelog->{"Version"}; } else { |