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
@@ -1,10 +1,26 @@
eval '(exit $?0)' && eval 'exec perl -wS "$0" "$@"'
& eval 'exec perl -wS "$0" $argv:q'
if 0;
+# This file is part of GNU Mailutils.
+# Copyright (C) 2017 Free Software Foundation, Inc.
+#
+# GNU Mailutils is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License as
+# published by the Free Software Foundation; either version 3, or (at
+# your option) any later version.
+#
+# GNU Mailutils is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
+
use strict;
use POSIX qw(strftime);
use Getopt::Long qw(:config gnu_getopt no_ignore_case);
use Text::Wrap;
use Data::Dumper;
use threads;
@@ -586,6 +602,10 @@ buffer-read-only: t
End:
EOT
;
$fd = select($fd);
close $fd;
}
+
+# Local Variables:
+# mode: perl
+# End:

Return to:

Send suggestions and report system problems to the System administrator.