diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2019-10-13 08:18:38 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2019-10-13 08:18:38 +0300 |
commit | 19cdb79424d5580720444bf383a4c385f72d4052 (patch) | |
tree | df3d703f423f24f2988fa4cb282e96b1fa115dcd | |
parent | 3760d6d6e544fe1a76a4496c4ef1068bbcc855f7 (diff) | |
download | mailutils-19cdb79424d5580720444bf383a4c385f72d4052.tar.gz mailutils-19cdb79424d5580720444bf383a4c385f72d4052.tar.bz2 |
Minor fixes
-rw-r--r-- | mh/tests/ali.at | 4 | ||||
-rwxr-xr-x | mu-aux/gencl | 11 |
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: |