[perl-ldap-checkins] CVS: asn/lib/Convert ASN1.pm,1.24,1.25 ASN1.pod,1.7,1.8

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

Update of /cvsroot/perl-ldap/asn/lib/Convert
In directory sc8-pr-cvs1:/tmp/cvs-serv12187/lib/Convert

Modified Files:
	ASN1.pm ASN1.pod 
Log Message:
CER and DER SET encoding


Index: ASN1.pm
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- ASN1.pm	6 May 2003 11:07:19 -0000	1.24
+++ ASN1.pm	6 May 2003 12:40:32 -0000	1.25
@@ -21,7 +21,7 @@
   }
 
   @ISA = qw(Exporter);
-  $VERSION = '0.16_01';
+  $VERSION = '0.16_02';
 
   %EXPORT_TAGS = (
     io    => [qw(asn_recv asn_send asn_read asn_write asn_get asn_ready)],
@@ -109,7 +109,14 @@
 sub configure {
   my $self = shift;
   my %opt = @_;
-  
+
+  $self->{options}{encoding} = uc($opt{encoding} || 'BER');
+
+  unless ($self->{options}{encoding} =~ /^[BD]ER$/) {
+    require Carp;
+    Carp::croak("Unsupported encoding format '$opt{encoding}'");
+  }
+
   for my $type (qw(encode decode)) {
     if (exists $opt{$type}) {
       while(my($what,$value) = each %{$opt{$type}}) {

Index: ASN1.pod
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1.pod,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- ASN1.pod	19 Aug 2002 23:59:18 -0000	1.7
+++ ASN1.pod	6 May 2003 12:40:32 -0000	1.8
@@ -63,7 +63,7 @@
 
 =item encoding
 
-One of 'ber', 'der', 'per'. I<Currently not used>
+One of 'BER' or 'DER'. The default is 'BER'
 
 =back
 
@@ -432,7 +432,7 @@
 
 =head1 AUTHOR
 
-Graham Barr <gb...@po...>, Report bugs via <bug...@rt...>
+Graham Barr <gb...@po...>, Report bugs via <bug...@rt...>
 
 =head1 COPYRIGHT