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