[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Control.pm,1.7,1.8

[Graham B. <gb...@us...>]

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;
 }