diff options
| author | Guillem Jover <guillem@debian.org> | 2016-08-18 05:41:54 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2016-10-30 04:44:14 +0100 |
| commit | a8abe4885f8535a783bdb0c7188076a272dd6182 (patch) | |
| tree | f400b8d021c3e96ef5d261fd2e4deb2aac8d299e /scripts/Dpkg/Control | |
| parent | 020460f5729775fcc5d7ac0a8289f87ce9732be0 (diff) | |
| download | dpkg-a8abe4885f8535a783bdb0c7188076a272dd6182.tar.gz | |
Dpkg::Substvars: Add new method set_field_substvars()
Refactor the ad-code in Dpkg::Control::HashCore to use this new method.
Diffstat (limited to 'scripts/Dpkg/Control')
| -rw-r--r-- | scripts/Dpkg/Control/HashCore.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/scripts/Dpkg/Control/HashCore.pm b/scripts/Dpkg/Control/HashCore.pm index 46e3dfddd..e947d9179 100644 --- a/scripts/Dpkg/Control/HashCore.pm +++ b/scripts/Dpkg/Control/HashCore.pm @@ -402,9 +402,7 @@ sub apply_substvars { my ($self, $substvars, %opts) = @_; # Add substvars to refer to other fields - foreach my $f (keys %$self) { - $substvars->set_as_auto("F:$f", $self->{$f}); - } + $substvars->set_field_substvars($self, 'F'); foreach my $f (keys %$self) { my $v = $substvars->substvars($self->{$f}, %opts); |