postfix-sender-login: wibble

1 files changed, 0 insertions, 1 deletions

diff --git a/roles/MSA/files/usr/local/bin/postfix-sender-login.pl b/roles/MSA/files/usr/local/bin/postfix-sender-login.pl
index e792457..3248e15 100755
--- a/roles/MSA/files/usr/local/bin/postfix-sender-login.pl
+++ b/roles/MSA/files/usr/local/bin/postfix-sender-login.pl
@@ -6,41 +6,40 @@
 # Copyright © 2017 Guilhem Moulin <guilhem@fripost.org>
 #
 # This program 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 of the License, or
 # (at your option) any later version.
 #
 # This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
 #----------------------------------------------------------------------
 
 use warnings;
 use strict;
 
 use Errno 'EINTR';
-use Socket qw/PF_UNIX SOCK_STREAM SHUT_RDWR/;
 
 use Net::LDAPI ();
 use Net::LDAP::Util qw/ldap_explode_dn escape_dn_value escape_filter_value/;
 use Net::LDAP::Constant qw/LDAP_NO_SUCH_OBJECT/;
 use Authen::SASL ();
 
 # clean up PATH
 $ENV{PATH} = join ':', qw{/usr/bin /bin};
 delete @ENV{qw/IFS CDPATH ENV BASH_ENV/};
 
 my $nProc      = 2;                        # number of pre-forked servers
 my $POSTMASTER = 'postmaster@fripost.org'; # returned for forbidden envelope sender addresses
 
 my $BASEDN  = 'ou=virtual,dc=fripost,dc=org';
 my $BUFSIZE = 65536; # try to read that many bytes at the time
 my $LDAPI   = 'ldapi://%2Fvar%2Fspool%2Fpostfix-msa%2Fprivate%2Fldapi/';
 sub server();
 
 
 # fdopen(3) the file descriptor FD