diff options
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; } |