Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL
In directory usw-pr-cvs1:/tmp/cvs-serv7071/lib/Authen/SASL
Modified Files:
Perl.pm
Log Message:
Add securesocket to the ::Perl base class.
Index: Perl.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- Perl.pm 24 Jan 2002 15:21:43 -0000 1.2
+++ Perl.pm 18 Feb 2002 16:56:58 -0000 1.3
@@ -8,7 +8,7 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.00";
+$VERSION = "1.01";
my %secflags = (
noplaintext => 1,
@@ -99,6 +99,8 @@
}
sub _secflags { 0 }
+
+sub securesocket { $_[1] }
1;
|
