summaryrefslogtreecommitdiff
path: root/mu-aux/gencl
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2017-06-14 13:13:57 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2017-06-14 13:19:48 +0300
commit719e64af991d1eff3874896caa80f2436b8f97da (patch)
tree38e31dbbeb63aeaff6f0bf04060c36c379a04605 /mu-aux/gencl
parent82e2f8ee6a860c427d69d1a3652945356f27920e (diff)
downloadmailutils-719e64af991d1eff3874896caa80f2436b8f97da.tar.gz
mailutils-719e64af991d1eff3874896caa80f2436b8f97da.tar.bz2
Bugfixes
* libmu_sieve/sieve-lex.l: Allocate new ctx structure (restore accidentally deleted file. * libmailutils/locus/debug.c: Add missing copyleft. * libmailutils/locus/genprloc.c: Likewise. * libmailutils/locus/ident.c: Likewise. * libmailutils/locus/linetrack.c: Likewise. * libmailutils/locus/locus.c: Likewise. * mu-aux/gencl: Likewise. * mu-aux/gitinfo: Likewise. * mu-aux/gylwrap: Likewise.
Diffstat (limited to 'mu-aux/gencl')
-rwxr-xr-xmu-aux/gencl20
1 files changed, 20 insertions, 0 deletions
diff --git a/mu-aux/gencl b/mu-aux/gencl
index 6e7ca5844..4373bfd1e 100755
--- a/mu-aux/gencl
+++ b/mu-aux/gencl
@@ -2,6 +2,22 @@ eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"'
2 & eval 'exec perl -wS "$0" $argv:q' 2 & eval 'exec perl -wS "$0" $argv:q'
3 if 0; 3 if 0;
4 4
5# This file is part of GNU Mailutils.
6# Copyright (C) 2017 Free Software Foundation, Inc.
7#
8# GNU Mailutils is free software; you can redistribute it and/or
9# modify it under the terms of the GNU General Public License as
10# published by the Free Software Foundation; either version 3, or (at
11# your option) any later version.
12#
13# GNU Mailutils is distributed in the hope that it will be useful, but
14# WITHOUT ANY WARRANTY; without even the implied warranty of
15# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16# General Public License for more details.
17#
18# You should have received a copy of the GNU General Public License
19# along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
20
5use strict; 21use strict;
6use POSIX qw(strftime); 22use POSIX qw(strftime);
7use Getopt::Long qw(:config gnu_getopt no_ignore_case); 23use Getopt::Long qw(:config gnu_getopt no_ignore_case);
@@ -589,3 +605,7 @@ EOT
589 $fd = select($fd); 605 $fd = select($fd);
590 close $fd; 606 close $fd;
591} 607}
608
609# Local Variables:
610# mode: perl
611# End:

Return to:

Send suggestions and report system problems to the System administrator.