[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pod,1.30,1.31 LDAPI.pm,1.4,1.5 LDAPS.pm,1.16,1.17

[Chris R. <chr...@us...>]

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