Minor fixes

2 files changed, 6 insertions, 9 deletions

diff --git a/mh/tests/ali.at b/mh/tests/ali.at
index fd5e08cdb..102d5cbd6 100644
--- a/mh/tests/ali.at
+++ b/mh/tests/ali.at
@@ -85,9 +85,9 @@ ali -a ./mh_aliases korzen | tr -d ' '
 [expout])
 
 MH_CHECK([ali: group id],[ali05 ali-group-id ali-gid],[
-cat /etc/passwd | awk -F : '/^#/ { next } $4==0 { print $1 }' > expout
+awk -F : '/^#/ { next } $4==0 { print $1 } /etc/passwd' > expout
 test -s expout || AT_SKIP_TEST
-name=`awk -F : '/^#/ { next } $3==0 { print $1 }' /etc/group < /dev/null`
+name=`awk -F : '/^#/ { next } $3==0 { print $1 }' /etc/group`
 test -z "$name" && AT_SKIP_TEST
 
 echo "korzen: +$name" > mh_aliases
diff --git a/mu-aux/gencl b/mu-aux/gencl
index 715b6bd0e..0419d81e0 100755
--- a/mu-aux/gencl
+++ b/mu-aux/gencl
@@ -1,7 +1,7 @@
-eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"'
-  & eval 'exec perl -wS "$0" $argv:q'
+#!/bin/sh
+#! -*-perl-*-
+eval 'exec perl -x -wS $0 ${1+"$@"}'
     if 0;
-
 # This file is part of GNU Mailutils.
 # Copyright (C) 2017-2019 Free Software Foundation, Inc.
 #
@@ -32,7 +32,7 @@ use Pod::Find qw(pod_where);
 
 my @append_files;
 my $force;
-my $verbose;
+my $verbose = 0;
 my $changelog_file = 'ChangeLog';
 my $since_date;
 my $until_date;
@@ -606,6 +606,3 @@ EOT
     close $fd;
 }   
 
-# Local Variables:
-# mode: perl
-# End: