[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP DSML.pm,1.14,1.15

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

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv5002/lib/Net/LDAP

Modified Files:
	DSML.pm 
Log Message:
Added no strict 'refs' to AUTOLOAD


Index: DSML.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/DSML.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- DSML.pm	29 May 2002 02:47:37 -0000	1.14
+++ DSML.pm	18 Jul 2002 18:19:43 -0000	1.15
@@ -5,13 +5,13 @@
 # 
 
 use strict;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
 use Carp;
 use XML::SAX::Base;
 use Net::LDAP::Entry;
 
 @ISA = qw(XML::SAX::Base);
-
+$VERSION = "0.10";
 
 # OO purists will hate this :)
 my %schema_typemap = qw(
@@ -650,6 +650,7 @@
 
 sub AUTOLOAD {
   (my $meth = $AUTOLOAD) =~ s/^.*:://;
+  no strict 'refs';
   *{$meth} = sub { shift->{handler}->$meth(@_) };
   goto &$meth;
 }