[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL Perl.pm,1.2,1.3

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

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;