Fix typo in asn1.h (PRINTABLESTRING_STRING) and fix a bug in object creation
[openssl.git] / crypto / objects / obj_dat.pl
index ebeb243..5043dae 100644 (file)
@@ -252,7 +252,7 @@ sub der_it
        $ret.=pack("C*",$a[0]*40+$a[1]);
        shift @a;
        shift @a;
-       while ($_=shift(@a))
+       foreach (@a)
                {
                @r=();
                $t=0;