From 5c319ed11b02a59799ce3d2a141f580f910f44df Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 20 May 2011 12:00:45 +0000
Subject: [PATCH] use LISTEN env variable if defined

---
 t/ldap-koha.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/ldap-koha.t b/t/ldap-koha.t
index cc8191a..2825ad4 100755
--- a/t/ldap-koha.t
+++ b/t/ldap-koha.t
@@ -21,7 +21,7 @@ sub ldap_check_error {
 	diag $o->error if $o->code;
 }
 
-ok( my $ldap = Net::LDAP->new( 'localhost:2389' ), 'new Net::LDAP' );
+ok( my $ldap = Net::LDAP->new( $ENV{LISTEN} || 'localhost:2389' ), 'new Net::LDAP' );
 
 ok( my $bind = $ldap->bind, 'bind' );
 ldap_check_error $bind;
-- 
2.20.1