diff options
Diffstat (limited to '')
-rwxr-xr-x | debian/rewrap.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/debian/rewrap.pl b/debian/rewrap.pl new file mode 100755 index 0000000..0fdcb1e --- /dev/null +++ b/debian/rewrap.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl + +use strict; +use Text::Wrap; + +$Text::Wrap::columns = 80; + +open FH, "<", "debian/description-list"; +my @a = <FH>; +foreach(@a) { + chomp $_; + if(length($_) > 80) { + $_ =~ /^(.{30})(.*)$/; + my $first = $1; + my $description = $2; + my $rest = " "; + print $_ . "\n" foreach(wrap($first, $rest, ($description))); + } else { + print $_."\n"; + } +} |