Fix typo in asn1.h (PRINTABLESTRING_STRING) and fix a bug in object creation

[openssl.git] / crypto / objects / obj_dat.pl

diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl
index ebeb243d80dcfd12ef7588b0fd0be9c8b2949c95..5043daef2a20bfb1f1beb69cb62c58d2cae48be7 100644 (file)
--- a/crypto/objects/obj_dat.pl
+++ b/crypto/objects/obj_dat.pl
@@ -252,7 +252,7 @@ sub der_it
        $ret.=pack("C*",$a[0]*40+$a[1]);
        shift @a;
        shift @a;
        $ret.=pack("C*",$a[0]*40+$a[1]);
        shift @a;
        shift @a;

-       while ($_=shift(@a))
+       foreach (@a)

                {
                @r=();
                $t=0;
                {
                @r=();
                $t=0;