From: Jim Meyering <jim@meyering.net>
Date: Sun, 22 Dec 1996 02:46:14 +0000 (+0000)
Subject: use 77 as max line len when wrapping
X-Git-Tag: FILEUTILS-3_14a~27
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=9dbd283b1ea92d1c76ff700907be530bef4c45e8;p=thirdparty%2Fcoreutils.git

use 77 as max line len when wrapping
---

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index c6dfa8fe97..708a3cb57d 100644
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -166,7 +166,7 @@ sub wrap
 	  push (@maint, @{$e->{MAINT_GEN}});
 	}
 
-      my $len = 78;
+      my $len = 77;
       print join (" \\\n", wrap ($len, 'explicit =', @exp)), "\n";
       print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
       print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index c6dfa8fe97..708a3cb57d 100644
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -166,7 +166,7 @@ sub wrap
 	  push (@maint, @{$e->{MAINT_GEN}});
 	}
 
-      my $len = 78;
+      my $len = 77;
       print join (" \\\n", wrap ($len, 'explicit =', @exp)), "\n";
       print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
       print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index c6dfa8fe97..708a3cb57d 100644
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -166,7 +166,7 @@ sub wrap
 	  push (@maint, @{$e->{MAINT_GEN}});
 	}
 
-      my $len = 78;
+      my $len = 77;
       print join (" \\\n", wrap ($len, 'explicit =', @exp)), "\n";
       print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
       print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index c6dfa8fe97..708a3cb57d 100644
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -166,7 +166,7 @@ sub wrap
 	  push (@maint, @{$e->{MAINT_GEN}});
 	}
 
-      my $len = 78;
+      my $len = 77;
       print join (" \\\n", wrap ($len, 'explicit =', @exp)), "\n";
       print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
       print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";