Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv21848/lib/Net
Modified Files:
LDAP.pod LDAPI.pm LDAPS.pm
Log Message:
Use ->new for all constructor examples
Index: LDAP.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- LDAP.pod 22 May 2003 09:24:23 -0000 1.30
+++ LDAP.pod 22 May 2003 12:16:57 -0000 1.31
@@ -784,7 +784,7 @@
decryptkey to a reference to a subroutine that returns the decrypting
key. For example:
- $ldap = new Net::LDAP('myhost.example.com', version => 3);
+ $ldap = Net::LDAP->new('myhost.example.com', version => 3);
$ldap->start_tls(verify => 'require',
clientcert => 'mycert.pem',
clientkey => 'mykey.pem',
Index: LDAPI.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAPI.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- LDAPI.pm 22 May 2003 09:24:24 -0000 1.4
+++ LDAPI.pm 22 May 2003 12:16:57 -0000 1.5
@@ -26,12 +26,12 @@
use Net::LDAPI;
- $ldapi = new Net::LDAPI('/var/lib/ldapi');
+ $ldapi = Net::LDAPI->new('/var/lib/ldapi');
# alternate way
use Net::LDAP;
- $ldapi = new Net::LDAP('ldapi://');
+ $ldapi = Net::LDAP->new('ldapi://');
=head1 DESCRIPTION
Index: LDAPS.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAPS.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- LDAPS.pm 22 May 2003 09:24:24 -0000 1.16
+++ LDAPS.pm 22 May 2003 12:16:57 -0000 1.17
@@ -26,17 +26,17 @@
use Net::LDAPS;
- $ldaps = new Net::LDAPS('myhost.example.com',
- port => '10000',
- verify => 'require',
- capath => '/usr/local/cacerts/');
+ $ldaps = Net::LDAPS->new('myhost.example.com',
+ port => '10000',
+ verify => 'require',
+ capath => '/usr/local/cacerts/');
# alternate way
use Net::LDAP;
- $ldaps = new Net::LDAP('ldaps://myhost.example.com:10000',
- verify => 'require',
- capath => '/usr/local/cacerts/');
+ $ldaps = Net::LDAP->new('ldaps://myhost.example.com:10000',
+ verify => 'require',
+ capath => '/usr/local/cacerts/');
=head1 DESCRIPTION
|
