use 77 as max line len when wrapping

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index c6dfa8fe970fff2f9594e8ce77229f40f4e2bec1..708a3cb57d59f756e406a96796c91c939d1c5456 100644 (file)
--- 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 c6dfa8fe970fff2f9594e8ce77229f40f4e2bec1..708a3cb57d59f756e406a96796c91c939d1c5456 100644 (file)
--- 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 c6dfa8fe970fff2f9594e8ce77229f40f4e2bec1..708a3cb57d59f756e406a96796c91c939d1c5456 100644 (file)
--- 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 c6dfa8fe970fff2f9594e8ce77229f40f4e2bec1..708a3cb57d59f756e406a96796c91c939d1c5456 100644 (file)
--- 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";