Parent Directory
| 
Revision Log
| 
Patch
| revision 89 by dpavlin, Thu May 6 06:22:09 2010 UTC | revision 103 by dpavlin, Fri May 20 12:00:45 2011 UTC | |
|---|---|---|
| # | Line 21 sub ldap_check_error { | Line 21 sub ldap_check_error { |
| 21 | diag $o->error if $o->code; | diag $o->error if $o->code; |
| 22 | } | } |
| 23 | ||
| 24 | ok( my $ldap = Net::LDAP->new( 'localhost:2389' ), 'new Net::LDAP' ); | ok( my $ldap = Net::LDAP->new( $ENV{LISTEN} || 'localhost:2389' ), 'new Net::LDAP' ); |
| 25 | ||
| 26 | ok( my $bind = $ldap->bind, 'bind' ); | ok( my $bind = $ldap->bind, 'bind' ); |
| 27 | ldap_check_error $bind; | ldap_check_error $bind; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |