diff options
| -rwxr-xr-x | scripts/dpkg-genchanges.pl | 6 | ||||
| -rwxr-xr-x | scripts/dpkg-source.pl | 6 |
2 files changed, 8 insertions, 4 deletions
diff --git a/scripts/dpkg-genchanges.pl b/scripts/dpkg-genchanges.pl index 2f182f8be..4cfa864c9 100755 --- a/scripts/dpkg-genchanges.pl +++ b/scripts/dpkg-genchanges.pl @@ -447,8 +447,10 @@ if (!defined($fields->{'Date'})) { } $fields->{'Binary'} = join(' ', map { $_->{'Package'} } $control->get_packages()); -# Avoid overly long line (>~1000 chars) by splitting over multiple lines -$fields->{'Binary'} =~ s/(.{0,980}) /$1\n/g; +# Avoid overly long line by splitting over multiple lines +if (length($fields->{'Binary'}) > 980) { + $fields->{'Binary'} =~ s/(.{0,980}) /$1\n/g; +} unshift(@archvalues,'source') unless is_binaryonly; @archvalues = ('all') if $include == ARCH_INDEP; diff --git a/scripts/dpkg-source.pl b/scripts/dpkg-source.pl index 0ea8cc08d..4c3dbc953 100755 --- a/scripts/dpkg-source.pl +++ b/scripts/dpkg-source.pl @@ -287,8 +287,10 @@ if ($options{'opmode'} =~ /^(-b|--print-format)$/) { } $fields->{'Binary'} = join(', ', @binarypackages); - # Avoid overly long line (>~1000 chars) by splitting over multiple lines - $fields->{'Binary'} =~ s/(.{0,980}), ?/$1,\n/g; + # Avoid overly long line by splitting over multiple lines + if (length($fields->{'Binary'}) > 980) { + $fields->{'Binary'} =~ s/(.{0,980}), ?/$1,\n/g; + } # Generate list of formats to try my @try_formats = (@cmdline_formats); |