Prepare for 0.9.8ze-dev

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

diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl
index 5dfb84ea00459d59298bde1573a1ad7fdf75dea3..7de2f77afdae3bc0fa1ba0cd2b230c6892e8ddba 100644 (file)
--- a/crypto/objects/obj_dat.pl
+++ b/crypto/objects/obj_dat.pl
@@ -1,5 +1,11 @@
 #!/usr/local/bin/perl
 
+# fixes bug in floating point emulation on sparc64 when
+# this script produces off-by-one output on sparc64
+eval 'use integer;';
+
+print STDERR "Warning: perl module integer not found.\n" if ($@);
+
 sub obj_cmp
        {
        local(@a,@b,$_,$r);
@@ -90,7 +96,7 @@ for ($i=0; $i<$n; $i++)
        {
        if (!defined($nid{$i}))
                {
-               push(@out,"{NULL,NULL,NID_undef,0,NULL},\n");
+               push(@out,"{NULL,NULL,NID_undef,0,NULL,0},\n");
                }
        else
                {
@@ -134,7 +140,7 @@ for ($i=0; $i<$n; $i++)
                        }
                else
                        {
-                       $out.="0,NULL";
+                       $out.="0,NULL,0";
                        }
                $out.="},\n";
                push(@out,$out);