From cafdb74b157ac4cea9d146e850dd7696b954f404 Mon Sep 17 00:00:00 2001
From: agriffis <agriffis@gentoo.org>
Date: Thu, 16 Sep 2004 01:28:45 +0000
Subject: [PATCH] fix wrapping

svn path=/; revision=135
---
 trunk/src/echangelog/ChangeLog  | 5 +++++
 trunk/src/echangelog/echangelog | 4 ++--
 2 files changed, 7 insertions(+), 2 deletions(-)

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
-- 
2.26.2