diff options
| author | Guillem Jover <guillem@debian.org> | 2017-09-26 05:09:43 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2017-10-16 11:04:28 +0200 |
| commit | 63958db6f8a0816539ad98b419775ae1ae00105c (patch) | |
| tree | 1cef4b3c45cf49973fcbd2330f5140d7dda8ae39 /scripts/Dpkg/Control | |
| parent | b95681f0ad831c2bacb25bd25ee220fb58f78466 (diff) | |
| download | dpkg-63958db6f8a0816539ad98b419775ae1ae00105c.tar.gz | |
Dpkg::Control::HashCore: Do not use an intermediate variable in STORE method
Diffstat (limited to 'scripts/Dpkg/Control')
| -rw-r--r-- | scripts/Dpkg/Control/HashCore.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/scripts/Dpkg/Control/HashCore.pm b/scripts/Dpkg/Control/HashCore.pm index 17d8ed7dd..91b279d43 100644 --- a/scripts/Dpkg/Control/HashCore.pm +++ b/scripts/Dpkg/Control/HashCore.pm @@ -485,10 +485,9 @@ sub FETCH { sub STORE { my ($self, $key, $value) = @_; - my $parent = $self->[1]; $key = lc($key); if (not exists $self->[0]->{$key}) { - push @{$parent->{in_order}}, field_capitalize($key); + push @{$self->[1]->{in_order}}, field_capitalize($key); } $self->[0]->{$key} = $value; } |