.

diff --git a/tests/cut/mk-script.pl b/tests/cut/mk-script.pl
index a7b396b..c6dfa8f 100644 (file)
--- a/tests/cut/mk-script.pl
+++ b/tests/cut/mk-script.pl
@@ -168,8 +168,8 @@ sub wrap
 
       my $len = 78;
       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";
+      print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
+      print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
 
       exit 0;
     }

diff --git a/tests/head/mk-script.pl b/tests/head/mk-script.pl
index a7b396b..c6dfa8f 100644 (file)
--- a/tests/head/mk-script.pl
+++ b/tests/head/mk-script.pl
@@ -168,8 +168,8 @@ sub wrap
 
       my $len = 78;
       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";
+      print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
+      print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
 
       exit 0;
     }

diff --git a/tests/join/mk-script.pl b/tests/join/mk-script.pl
index a7b396b..c6dfa8f 100644 (file)
--- a/tests/join/mk-script.pl
+++ b/tests/join/mk-script.pl
@@ -168,8 +168,8 @@ sub wrap
 
       my $len = 78;
       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";
+      print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
+      print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
 
       exit 0;
     }

diff --git a/tests/ls/mk-script.pl b/tests/ls/mk-script.pl
index a7b396b..c6dfa8f 100644 (file)
--- a/tests/ls/mk-script.pl
+++ b/tests/ls/mk-script.pl
@@ -168,8 +168,8 @@ sub wrap
 
       my $len = 78;
       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";
+      print join (" \\\n", wrap ($len, 'maint_gen =', @maint)), "\n";
+      print join (" \\\n", wrap ($len, 'run_gen =', @run)), "\n";
 
       exit 0;
     }