From: agriffis <agriffis@gentoo.org>
Date: Thu, 16 Sep 2004 01:28:45 +0000 (-0000)
Subject: fix wrapping
X-Git-Tag: gentoolkit-0.2.4.3~367
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=cafdb74b157ac4cea9d146e850dd7696b954f404;p=gentoolkit.git

fix wrapping

svn path=/; revision=135
---

diff --git a/trunk/src/echangelog/ChangeLog b/trunk/src/echangelog/ChangeLog
index b079e53..8d64da2 100644
--- a/trunk/src/echangelog/ChangeLog
+++ b/trunk/src/echangelog/ChangeLog
@@ -1,3 +1,8 @@
+15 Sep 2004 Aron Griffis <agriffis@gentoo.org>
+	* fix the wrapping to fit in 80 columns properly.  It was
+	  previously possible to get lines with 81 chars.  Thanks to
+	  ciaranm for reporting.
+
 29 Mar 2004 Aron Griffis <agriffis@gentoo.org>
 	* fix bug 46111 by testing for /<root@/ instead of / root@/
 
diff --git a/trunk/src/echangelog/echangelog b/trunk/src/echangelog/echangelog
index 3a8c3c5..9c37285 100644
--- a/trunk/src/echangelog/echangelog
+++ b/trunk/src/echangelog/echangelog
@@ -15,7 +15,7 @@ use POSIX qw(strftime getcwd setlocale);
 setlocale(&POSIX::LC_ALL, "C");
 
 use Text::Wrap;
-$Text::Wrap::columns = 79;
+$Text::Wrap::columns = 77;
 $Text::Wrap::unexpand = 0;
 
 # Global variables
@@ -154,7 +154,7 @@ if ($ARGV[0]) {
 die "Empty entry; aborting\n" unless $input =~ /\S/;
 
 # If there are any long lines, then wrap the input at $columns chars
-# (leaving 2 chars on each end after adding indentation below).
+# (leaving 2 chars on left, one char on right, after adding indentation below).
 $input =~ s/^\s*(.*?)\s*\z/$1/s;  # trim whitespace
 $input = Text::Wrap::fill('', '', $input) if ($input =~ /^.{80}/m);
 $input =~ s/^/  /gm;        # add indentation