X-Git-Url: https://git.adam-barratt.org.uk/?a=blobdiff_plain;f=Util.pm;h=001de372e5e232fc5637a0995cd30a107d35af0d;hb=dcc593467549d7be921a6879f779787ac25ff6ea;hp=374a592a80c0382bacc0ce86d9650c5928431aa2;hpb=80ed561a914ae1af6948747933e260c4623df222;p=mirror%2Fuserdir-ldap-cgi.git
diff --git a/Util.pm b/Util.pm
index 374a592..001de37 100644
--- a/Util.pm
+++ b/Util.pm
@@ -7,7 +7,7 @@ package Util;
use strict;
use Date::Manip qw(ParseDate);
-use Net::LDAP qw(:all);
+use Net::LDAP qw(LDAP_SUCCESS LDAP_PROTOCOL_ERROR);
use English;
my $blocksize = 8; # A blowfish block is 8 bytes
@@ -359,7 +359,7 @@ sub UpgradeConnection($) {
$mesg->sync;
if ($mesg->code != LDAP_SUCCESS) {
print "Content-type: text/html; charset=utf-8\n\n";
- print "STARTTLS failed: "..$mesg->error."
\n";
+ print "STARTTLS failed: ".$mesg->error."
\n";
exit(1);
};
};