diff options
| author | Guillem Jover <guillem@debian.org> | 2014-06-05 20:04:19 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2014-06-05 20:56:44 +0200 |
| commit | 397448b7486b14ce3d844743c71e277a0b086141 (patch) | |
| tree | 4d401271cf8edfb783b6a44714f5f3a1e103a3f5 /scripts/Dpkg/Control/HashCore.pm | |
| parent | 37b310bad3ba96ce14a9a81875e4130d06b8968b (diff) | |
| download | dpkg-397448b7486b14ce3d844743c71e277a0b086141.tar.gz | |
Dpkg::Control::HashCore: Only skip actual empty first line field values
Regression introduced in commit c2ee90f92ab6c915db774403414b2ea70c967c3e.
We need to check if the value is empty, not if it's false. Add a
regression test.
Diffstat (limited to 'scripts/Dpkg/Control/HashCore.pm')
| -rw-r--r-- | scripts/Dpkg/Control/HashCore.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/Dpkg/Control/HashCore.pm b/scripts/Dpkg/Control/HashCore.pm index 05c168978..83d3bbbe4 100644 --- a/scripts/Dpkg/Control/HashCore.pm +++ b/scripts/Dpkg/Control/HashCore.pm @@ -352,7 +352,7 @@ sub output { my ($first_line, @lines) = split /\n/, $value; my $kv = "$key:"; - $kv .= ' ' . $first_line if $first_line; + $kv .= ' ' . $first_line if length $first_line; $kv .= "\n"; foreach (@lines) { s/\s+$//; |