X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=crypto%2Fobjects%2Fobj_dat.pl;h=5043daef2a20bfb1f1beb69cb62c58d2cae48be7;hp=ebeb243d80dcfd12ef7588b0fd0be9c8b2949c95;hb=7463ca9accd247414d78c90f696622b2a8f3fbde;hpb=7dfb0b774e6592dcbfe47015168a0ac8b44e2a17

diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl
index ebeb243d80..5043daef2a 100644
--- 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;
-	while ($_=shift(@a))
+	foreach (@a)
 		{
 		@r=();
 		$t=0;