[perl-ldap-checkins] CVS: asn/t 14any.t,1.1,1.2

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

Update of /cvsroot/perl-ldap/asn/t
In directory sc8-pr-cvs1:/tmp/cvs-serv16892/t

Modified Files:
	14any.t 
Log Message:
Remove duplicate my


Index: 14any.t
===================================================================
RCS file: /cvsroot/perl-ldap/asn/t/14any.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 14any.t	6 May 2003 21:29:07 -0000	1.1
+++ 14any.t	6 May 2003 21:47:15 -0000	1.2
@@ -41,9 +41,9 @@
 
 # Now check the second
 
-my $result = pack("C*", 0x06, 0x03, 0x29, 0x01, 0x02, 0x30, 0x11, 0x02,
-                        0x01, 0x01, 0x04, 0x0c, 0x61, 0x6e, 0x64, 0x20,
-                        0x61, 0x20, 0x73, 0x74, 0x72, 0x69, 0x6e, 0x67);
+$result = pack("C*", 0x06, 0x03, 0x29, 0x01, 0x02, 0x30, 0x11, 0x02,
+		     0x01, 0x01, 0x04, 0x0c, 0x61, 0x6e, 0x64, 0x20,
+		     0x61, 0x20, 0x73, 0x74, 0x72, 0x69, 0x6e, 0x67);
 
 stest 12, $result, $asn->encode(type => "1.1.1.2", 
 			        content => {integer=>1, str=>"and a string"});