1 files changed, 2 insertions, 2 deletions

diff --git a/src/lib/libcrypto/objects/obj_dat.pl b/src/lib/libcrypto/objects/obj_dat.pl
index 4e7879d3f3..5043daef2a 100644
--- a/src/lib/libcrypto/objects/obj_dat.pl
+++ b/src/lib/libcrypto/objects/obj_dat.pl
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/local/bin/perl
 
 sub obj_cmp
         {
@@ -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;