Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv16327/lib/Net/LDAP
Modified Files:
Control.pm
Log Message:
Name the constants we want explicitly as ::Constant is no
longer based on Exporter
Index: Control.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Control.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Control.pm 7 May 2003 10:52:11 -0000 1.7
+++ Control.pm 8 May 2003 12:52:16 -0000 1.8
@@ -5,10 +5,18 @@
package Net::LDAP::Control;
-use Net::LDAP::Constant qw(/^LDAP_CONTROL/);
use vars qw($VERSION);
use strict;
+use Net::LDAP::Constant qw(
+ LDAP_CONTROL_SORTREQUEST
+ LDAP_CONTROL_SORTRESULT
+ LDAP_CONTROL_VLVREQUEST
+ LDAP_CONTROL_VLVRESPONSE
+ LDAP_CONTROL_PAGED
+ LDAP_CONTROL_PROXYAUTHENTICATION
+);
+
$VERSION = "0.04";
my %Pkg2Type = (
@@ -17,7 +25,7 @@
'Net::LDAP::Control::SortResult' => LDAP_CONTROL_SORTRESULT,
'Net::LDAP::Control::VLV' => LDAP_CONTROL_VLVREQUEST,
- 'Net::LDAP::Control::VLVResponse' => LDAP_CONTROL_VLVRESPONSE,
+ 'Net::LDAP::Control::VLVResponse' => LDAP_CONTROL_VLVRESPONSE,
'Net::LDAP::Control::Paged' => LDAP_CONTROL_PAGED,
@@ -84,7 +92,7 @@
}
delete $asn->{error};
-
+
bless($asn, $class)->init;
}
|
