openpkg/openssl.patch

Thu, 04 Oct 2012 20:30:05 +0200

author
Michael Schloh von Bennewitz <michael@schloh.com>
date
Thu, 04 Oct 2012 20:30:05 +0200
changeset 715
c10fb90893b9
parent 432
aa0488214e35
permissions
-rw-r--r--

Correct out of date build configuration, porting to Solaris 11 network
link infrastructure and new libpcap logic. This additionally allows for
device drivers in subdirectories of /dev. Correct packaged nmap
personalities and signatures to work out of the box. Finally, hack
arpd logic to properly close sockets and quit on TERM by repeating
signaling in the run command script. Sadly, all this fails to correct
the run time behaviour of honeyd which fails to bind to the IP layer.

     1 Index: Configure
     2 --- Configure.orig	2012-03-14 23:20:40.000000000 +0100
     3 +++ Configure	2012-06-27 10:10:05.000000000 +0200
     4 @@ -6,7 +6,6 @@
     5  ##
     7  require 5.000;
     8 -use strict;
    10  # see INSTALL for instructions.
    12 @@ -34,6 +33,7 @@
    13  #		(Default: KRB5_DIR/include)
    14  # --with-krb5-flavor  Declare what flavor of Kerberos 5 is used.  Currently
    15  #		supported values are "MIT" and "Heimdal".  A value is required.
    16 +# --with-cc     compiler to use for $CC (useful if cc is a disguised gcc)
    17  #
    18  # --test-sanity Make a number of sanity checks on the data in this file.
    19  #               This is a debugging tool for OpenSSL developers.
    20 @@ -123,6 +123,7 @@
    21  #$bits2="THIRTY_TWO_BIT ";
    22  my $bits1="THIRTY_TWO_BIT ";
    23  my $bits2="SIXTY_FOUR_BIT ";
    24 +my $ccarg;
    26  my $x86_asm="x86cpuid.o:bn-586.o co-586.o x86-mont.o x86-gf2m.o:des-586.o crypt586.o:aes-586.o vpaes-x86.o aesni-x86.o:bf-586.o:md5-586.o:sha1-586.o sha256-586.o sha512-586.o:cast-586.o:rc4-586.o:rmd-586.o:rc5-586.o:wp_block.o wp-mmx.o:cmll-x86.o:ghash-x86.o:";
    28 @@ -460,12 +461,12 @@
    30  #### IBM's AIX.
    31  "aix3-cc",  "cc:-O -DB_ENDIAN -qmaxmem=16384::(unknown):AIX::BN_LLONG RC4_CHAR:::",
    32 -"aix-gcc",  "gcc:-O -DB_ENDIAN::-pthread:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X32",
    33 -"aix64-gcc","gcc:-maix64 -O -DB_ENDIAN::-pthread:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-maix64 -shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X64",
    34 +"aix-gcc",  "gcc:-O -DB_ENDIAN::-pthread:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::",
    35 +"aix64-gcc","gcc:-maix64 -O -DB_ENDIAN::-pthread:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-maix64 -shared -Wl,-G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::",
    36  # Below targets assume AIX 5. Idea is to effectively disregard $OBJECT_MODE
    37  # at build time. $OBJECT_MODE is respected at ./config stage!
    38 -"aix-cc",   "cc:-q32 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-q32 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 32",
    39 -"aix64-cc", "cc:-q64 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-q64 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::-X 64",
    40 +"aix-cc",   "cc:-q32 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::BN_LLONG RC4_CHAR:${ppc32_asm}:aix32:dlfcn:aix-shared::-q32 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::",
    41 +"aix64-cc", "cc:-q64 -O -DB_ENDIAN -qmaxmem=16384 -qro -qroconst::-qthreaded:AIX::SIXTY_FOUR_BIT_LONG RC4_CHAR:${ppc64_asm}:aix64:dlfcn:aix-shared::-q64 -G:.so.\$(SHLIB_MAJOR).\$(SHLIB_MINOR)::",
    43  #
    44  # Cray T90 and similar (SDSC)
    45 @@ -828,6 +829,10 @@
    46  			{
    47  			$strict_warnings = 1;
    48  			}
    49 +		elsif (/^--with-cc=(.*)$/)
    50 +			{
    51 +                $ccarg=$1
    52 +			}
    53  		elsif (/^reconfigure/ || /^reconf/)
    54  			{
    55  			if (open(IN,"<$Makefile"))
    56 @@ -1143,7 +1148,7 @@
    57  print "IsMK1MF=$IsMK1MF\n";
    59  my @fields = split(/\s*:\s*/,$table{$target} . ":" x 30 , -1);
    60 -my $cc = $fields[$idx_cc];
    61 +my $cc = $ccarg ? $ccarg : $fields[$idx_cc];
    62  # Allow environment CC to override compiler...
    63  if($ENV{CC}) {
    64      $cc = $ENV{CC};
    65 Index: config
    66 --- config.orig	2011-11-14 22:12:53.000000000 +0100
    67 +++ config	2012-06-27 10:10:05.000000000 +0200
    68 @@ -277,6 +277,9 @@
    69  	    Power*)
    70  		echo "ppc-apple-darwin${VERSION}"
    71  		;;
    72 +	    x86_64 )
    73 +		echo "x86_64-apple-darwin${VERSION}"
    74 +		;;
    75  	    *)
    76  		echo "i686-apple-darwin${VERSION}"
    77  		;;
    78 @@ -411,9 +414,14 @@
    79  # this is where the translation occurs into SSLeay terms
    80  # ---------------------------------------------------------------------------
    82 +# Assume CC is GNU GCC if 'dumpversion' argument produces valid output
    83 +GCCVER=`sh -c "${CC-gcc} -dumpversion" 2>/dev/null`
    84 +GCCVER=`echo $GCCVER | LC_ALL=C sed 's/^[a-zA-Z]*\-//'`
    85 +GCCVER=`echo $GCCVER | sed 's/\([0-9]\)\.\([0-9]\).*/\1\2/'`
    86 +
    87  # Only set CC if not supplied already
    88  if [ -z "$CROSS_COMPILE$CC" ]; then
    89 -  GCCVER=`sh -c "gcc -dumpversion" 2>/dev/null`
    90 +  GCCVER=`sh -c "${CC-gcc} -dumpversion" 2>/dev/null`
    91    if [ "$GCCVER" != "" ]; then
    92      # then strip off whatever prefix egcs prepends the number with...
    93      # Hopefully, this will work for any future prefixes as well.
    94 @@ -424,8 +432,17 @@
    95      # peak single digit before and after first dot, e.g. 2.95.1 gives 29
    96      GCCVER=`echo $GCCVER | sed 's/\([0-9]\)\.\([0-9]\).*/\1\2/'`
    97      CC=gcc
    98 +    SUFFIX=gcc
    99    else
   100      CC=cc
   101 +    SUFFIX=cc
   102 +  fi
   103 +else
   104 +  if [ "$GCCVER" != "" ]; then
   105 +    SUFFIX=gcc
   106 +  else
   107 +    CC=cc
   108 +    SUFFIX=cc
   109    fi
   110  fi
   111  GCCVER=${GCCVER:-0}
   112 @@ -435,7 +452,7 @@
   113    if [ $GCCVER -ge 30 ]; then
   114      # PA64 support only came in with gcc 3.0.x.
   115      # We check if the preprocessor symbol __LP64__ is defined...
   116 -    if echo "__LP64__" | gcc -v -E -x c - 2>/dev/null | grep "^__LP64__" 2>&1 > /dev/null; then
   117 +    if echo "__LP64__" | $CC -v -E -x c - 2>/dev/null | grep "^__LP64__" 2>&1 > /dev/null; then
   118        : # __LP64__ has slipped through, it therefore is not defined
   119      else
   120        GCC_BITS="64"
   121 @@ -446,13 +463,14 @@
   122    if [ $GCCVER -ge 30 ]; then
   123      # 64-bit ABI isn't officially supported in gcc 3.0, but it appears
   124      # to be working, at the very least 'make test' passes...
   125 -    if gcc -v -E -x c /dev/null 2>&1 | grep __arch64__ > /dev/null; then
   126 +    if $CC -v -E -x c /dev/null 2>&1 | grep __arch64__ > /dev/null; then
   127        GCC_ARCH="-m64"
   128      else
   129        GCC_ARCH="-m32"
   130      fi
   131    fi
   132    # check for WorkShop C, expected output is "cc: blah-blah C x.x"
   133 +  if [ $GCCVER -eq 0 ]; then
   134    CCVER=`(cc -V 2>&1) 2>/dev/null | \
   135    	egrep -e '^cc: .* C [0-9]\.[0-9]' | \
   136  	sed 's/.* C \([0-9]\)\.\([0-9]\).*/\1\2/'`
   137 @@ -465,6 +483,7 @@
   138        sleep 5
   139      fi
   140    fi
   141 +  fi
   142  fi
   144  if [ "${SYSTEM}-${MACHINE}" = "Linux-alpha" ]; then
   145 @@ -482,6 +501,7 @@
   147  if [ "${SYSTEM}" = "AIX" ]; then	# favor vendor cc over gcc
   148      (cc) 2>&1 | grep -iv "not found" > /dev/null && CC=cc
   149 +    (gcc) 2>&1 | grep -iv "not found" > /dev/null && CC=gcc
   150  fi
   152  CCVER=${CCVER:-0}
   153 @@ -507,7 +527,7 @@
   154  	if [ $CPU -ge 4000 ]; then
   155  		options="$options -mips2"
   156  	fi
   157 -	OUT="irix-$CC"
   158 +	OUT="irix-$SUFFIX"
   159  	;;
   160    mips3-sgi-irix)
   161  	#CPU=`(hinv -t cpu) 2>/dev/null | head -1 | sed 's/^CPU:[^R]*R\([0-9]*\).*/\1/'`
   162 @@ -517,11 +537,11 @@
   163  	#else
   164  	#	options="$options -mips3"
   165  	#fi
   166 -	OUT="irix-mips3-$CC"
   167 +	OUT="irix-mips3-$SUFFIX"
   168  	;;
   169    mips4-sgi-irix64)
   170  	echo "WARNING! If you wish to build 64-bit library, then you have to"
   171 -	echo "         invoke './Configure irix64-mips4-$CC' *manually*."
   172 +	echo "         invoke './Configure irix64-mips4-$SUFFIX' *manually*."
   173  	if [ "$TEST" = "false" -a -t 1 ]; then
   174  	  echo "         You have about 5 seconds to press Ctrl-C to abort."
   175  	  (trap "stty `stty -g`" 2 0; stty -icanon min 0 time 50; read waste) <&1
   176 @@ -533,7 +553,7 @@
   177          #else
   178          #        options="$options -mips3"
   179          #fi
   180 -	OUT="irix-mips3-$CC"
   181 +	OUT="irix-mips3-$SUFFIX"
   182  	;;
   183    ppc-apple-rhapsody) OUT="rhapsody-ppc-cc" ;;
   184    ppc-apple-darwin*)
   185 @@ -566,6 +586,9 @@
   186  	else
   187  	    OUT="darwin-i386-cc"
   188  	fi ;;
   189 +  x86_64-apple-darwin*)
   190 +    OUT="darwin64-x86_64-cc"
   191 +    ;;
   192    armv6+7-*-iphoneos)
   193  	options="$options -arch%20armv6 -arch%20armv7"
   194  	OUT="iphoneos-cross" ;;
   195 @@ -575,10 +598,10 @@
   196    alpha-*-linux2)
   197          ISA=`awk '/cpu model/{print$4;exit(0);}' /proc/cpuinfo`
   198  	case ${ISA:-generic} in
   199 -	*[678])	OUT="linux-alpha+bwx-$CC" ;;
   200 -	*)	OUT="linux-alpha-$CC" ;;
   201 +	*[678])	OUT="linux-alpha+bwx-$SUFFIX" ;;
   202 +	*)	OUT="linux-alpha-$SUFFIX" ;;
   203  	esac
   204 -	if [ "$CC" = "gcc" ]; then
   205 +	if [ $GCCVER -gt 0 ]; then
   206  	    case ${ISA:-generic} in
   207  	    EV5|EV45)		options="$options -mcpu=ev5";;
   208  	    EV56|PCA56)		options="$options -mcpu=ev56";;
   209 @@ -662,7 +685,7 @@
   210  	;;
   211    x86_64-*-linux?) OUT="linux-x86_64" ;;
   212    *86-*-linux2) OUT="linux-elf"
   213 -	if [ "$GCCVER" -gt 28 ]; then
   214 +	if [ $GCCVER -gt 28 ]; then
   215            if grep '^model.*Pentium' /proc/cpuinfo >/dev/null ; then
   216  	    options="$options -march=pentium"
   217            fi
   218 @@ -676,17 +699,17 @@
   219    *-*-linux1) OUT="linux-aout" ;;
   220    *-*-linux2) OUT="linux-generic32" ;;
   221    sun4[uv]*-*-solaris2)
   222 -	OUT="solaris-sparcv9-$CC"
   223 +	OUT="solaris-sparcv9-$SUFFIX"
   224  	ISA64=`(isalist) 2>/dev/null | grep sparcv9`
   225  	if [ "$ISA64" != "" -a "$KERNEL_BITS" = "" ]; then
   226 -	    if [ "$CC" = "cc" -a $CCVER -ge 50 ]; then
   227 +	    if [ $GCCVER -eq 0 -a $CCVER -ge 50 ]; then
   228  		echo "WARNING! If you wish to build 64-bit library, then you have to"
   229  		echo "         invoke './Configure solaris64-sparcv9-cc' *manually*."
   230  		if [ "$TEST" = "false" -a -t 1 ]; then
   231  		  echo "         You have about 5 seconds to press Ctrl-C to abort."
   232  		  (trap "stty `stty -g`" 2 0; stty -icanon min 0 time 50; read waste) <&1
   233  		fi
   234 -	    elif [ "$CC" = "gcc" -a "$GCC_ARCH" = "-m64" ]; then
   235 +	    elif [ $GCCVER -gt 0 -a "$GCC_ARCH" = "-m64" ]; then
   236  		# $GCC_ARCH denotes default ABI chosen by compiler driver
   237  		# (first one found on the $PATH). I assume that user
   238  		# expects certain consistency with the rest of his builds
   239 @@ -712,21 +735,21 @@
   240  	    OUT="solaris64-sparcv9-$CC"
   241  	fi
   242  	;;
   243 -  sun4m-*-solaris2)	OUT="solaris-sparcv8-$CC" ;;
   244 -  sun4d-*-solaris2)	OUT="solaris-sparcv8-$CC" ;;
   245 -  sun4*-*-solaris2)	OUT="solaris-sparcv7-$CC" ;;
   246 +  sun4m-*-solaris2)	OUT="solaris-sparcv8-$SUFFIX" ;;
   247 +  sun4d-*-solaris2)	OUT="solaris-sparcv8-$SUFFIX" ;;
   248 +  sun4*-*-solaris2)	OUT="solaris-sparcv7-$SUFFIX" ;;
   249    *86*-*-solaris2)
   250  	ISA64=`(isalist) 2>/dev/null | grep amd64`
   251  	if [ "$ISA64" != "" -a ${KERNEL_BITS:-64} -eq 64 ]; then
   252 -	    OUT="solaris64-x86_64-$CC"
   253 +	    OUT="solaris64-x86_64-$SUFFIX"
   254  	else
   255 -	    OUT="solaris-x86-$CC"
   256 +	    OUT="solaris-x86-$SUFFIX"
   257  	    if [ `uname -r | sed -e 's/5\.//'` -lt 10 ]; then
   258  		options="$options no-sse2"
   259  	    fi
   260  	fi
   261  	;;
   262 -  *-*-sunos4)		OUT="sunos-$CC" ;;
   263 +  *-*-sunos4)		OUT="sunos-$SUFFIX" ;;
   265    *86*-*-bsdi4)		OUT="BSD-x86-elf"; options="$options no-sse2 -ldl" ;;
   266    alpha*-*-*bsd*)	OUT="BSD-generic64"; options="$options -DL_ENDIAN" ;;
   267 @@ -750,7 +773,7 @@
   268    *-*-osf)		OUT="osf1-alpha-cc" ;;
   269    *-*-tru64)		OUT="tru64-alpha-cc" ;;
   270    *-*-[Uu]nix[Ww]are7)
   271 -	if [ "$CC" = "gcc" ]; then
   272 +	if [ $GCCVER -gt 0 ]; then
   273  	  OUT="unixware-7-gcc" ; options="$options no-sse2"
   274  	else    
   275  	  OUT="unixware-7" ; options="$options no-sse2 -D__i386__"
   276 @@ -761,12 +784,12 @@
   277    *-*-vos)
   278  	options="$options no-threads no-shared no-asm no-dso"
   279  	EXE=".pm"
   280 -	OUT="vos-$CC" ;;
   281 +	OUT="vos-$SUFFIX" ;;
   282    BS2000-siemens-sysv4) OUT="BS2000-OSD" ;;
   283    RM*-siemens-sysv4) OUT="ReliantUNIX" ;;
   284    *-siemens-sysv4) OUT="SINIX" ;;
   285    *-hpux1*)
   286 -	if [ $CC = "gcc" -a $GCC_BITS = "64" ]; then
   287 +	if [ $GCCVER -gt 0 -a $GCC_BITS = "64" ]; then
   288  	    OUT="hpux64-parisc2-gcc"
   289  	fi
   290  	[ "$KERNEL_BITS" ] || KERNEL_BITS=`(getconf KERNEL_BITS) 2>/dev/null`
   291 @@ -781,8 +804,8 @@
   292  	        OUT="hpux-ia64-cc"
   293               fi
   294  	elif [ $CPU_VERSION -ge 532 ]; then	# PA-RISC 2.x CPU
   295 -	     OUT=${OUT:-"hpux-parisc2-${CC}"}
   296 -	     if [ $KERNEL_BITS -eq 64 -a "$CC" = "cc" ]; then
   297 +	     OUT=${OUT:-"hpux-parisc2-${SUFFIX}"}
   298 +	     if [ $KERNEL_BITS -eq 64 -a $GCCVER -eq 0 ]; then
   299  		echo "WARNING! If you wish to build 64-bit library then you have to"
   300  		echo "         invoke './Configure hpux64-parisc2-cc' *manually*."
   301  		if [ "$TEST" = "false" -a -t 1 ]; then
   302 @@ -791,9 +814,9 @@
   303  		fi
   304  	     fi
   305  	elif [ $CPU_VERSION -ge 528 ]; then	# PA-RISC 1.1+ CPU
   306 -	     OUT="hpux-parisc-${CC}"
   307 +	     OUT="hpux-parisc-${SUFFIX}"
   308  	elif [ $CPU_VERSION -ge 523 ]; then	# PA-RISC 1.0 CPU
   309 -	     OUT="hpux-parisc-${CC}"
   310 +	     OUT="hpux-parisc-${SUFFIX}"
   311  	else					# Motorola(?) CPU
   312  	     OUT="hpux-$CC"
   313  	fi
   314 @@ -803,7 +826,7 @@
   315  	[ "$KERNEL_BITS" ] || KERNEL_BITS=`(getconf KERNEL_BITMODE) 2>/dev/null`
   316  	KERNEL_BITS=${KERNEL_BITS:-32}
   317  	OBJECT_MODE=${OBJECT_MODE:-32}
   318 -	if [ "$CC" = "gcc" ]; then
   319 +	if [ $GCCVER -gt 0 ]; then
   320  	    OUT="aix-gcc"
   321            if [ $OBJECT_MODE -eq 64 ]; then
   322              echo 'Your $OBJECT_MODE was found to be set to 64'
   323 @@ -913,7 +936,7 @@
   324  #fi
   326  if [ -z "$OUT" ]; then
   327 -  OUT="$CC"
   328 +  OUT="$SUFFIX"
   329  fi
   331  if [ ".$PERL" = . ] ; then
   332 @@ -945,9 +968,9 @@
   333  # compiler for the platform ... in which case we add it on
   334  # the end ... otherwise we leave it off
   336 -$PERL ./Configure LIST | grep "$OUT-$CC" > /dev/null
   337 +$PERL ./Configure LIST | grep "$OUT-$SUFFIX" > /dev/null
   338  if [ $? = "0" ]; then
   339 -  OUT="$OUT-$CC"
   340 +  OUT="$OUT-$SUFFIX"
   341  fi
   343  OUT="$PREFIX$OUT"
   344 @@ -957,9 +980,9 @@
   345    echo Configuring for $OUT
   347    if [ "$TEST" = "true" ]; then
   348 -    echo $PERL ./Configure $OUT $options
   349 +    echo $PERL ./Configure $OUT --with-cc=$CC $options
   350    else
   351 -    $PERL ./Configure $OUT $options
   352 +    $PERL ./Configure $OUT --with-cc=$CC $options
   353    fi
   354  else
   355    echo "This system ($OUT) is not supported. See file INSTALL for details."
   356 Index: crypto/aes/asm/aesni-sha1-x86_64.pl
   357 --- crypto/aes/asm/aesni-sha1-x86_64.pl.orig	2011-08-23 22:53:31.000000000 +0200
   358 +++ crypto/aes/asm/aesni-sha1-x86_64.pl	2012-06-27 10:10:05.000000000 +0200
   359 @@ -206,7 +206,7 @@
   360  ___
   362  my $aesenc=sub {
   363 -  use integer;
   364 +  
   365    my ($n,$k)=($r/10,$r%10);
   366      if ($k==0) {
   367        $code.=<<___;
   368 @@ -249,7 +249,7 @@
   369  };
   371  sub Xupdate_ssse3_16_31()		# recall that $Xi starts wtih 4
   372 -{ use integer;
   373 +{ 
   374    my $body = shift;
   375    my @insns = (&$body,&$body,&$body,&$body);	# 40 instructions
   376    my ($a,$b,$c,$d,$e);
   377 @@ -330,7 +330,7 @@
   378  }
   380  sub Xupdate_ssse3_32_79()
   381 -{ use integer;
   382 +{ 
   383    my $body = shift;
   384    my @insns = (&$body,&$body,&$body,&$body);	# 32 to 48 instructions
   385    my ($a,$b,$c,$d,$e);
   386 @@ -397,7 +397,7 @@
   387  }
   389  sub Xuplast_ssse3_80()
   390 -{ use integer;
   391 +{ 
   392    my $body = shift;
   393    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   394    my ($a,$b,$c,$d,$e);
   395 @@ -431,7 +431,7 @@
   396  }
   398  sub Xloop_ssse3()
   399 -{ use integer;
   400 +{ 
   401    my $body = shift;
   402    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   403    my ($a,$b,$c,$d,$e);
   404 @@ -456,7 +456,7 @@
   405  }
   407  sub Xtail_ssse3()
   408 -{ use integer;
   409 +{ 
   410    my $body = shift;
   411    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   412    my ($a,$b,$c,$d,$e);
   413 @@ -465,7 +465,7 @@
   414  }
   416  sub body_00_19 () {
   417 -  use integer;
   418 +  
   419    my ($k,$n);
   420    my @r=(
   421  	'($a,$b,$c,$d,$e)=@V;'.
   422 @@ -488,7 +488,7 @@
   423  }
   425  sub body_20_39 () {
   426 -  use integer;
   427 +  
   428    my ($k,$n);
   429    my @r=(
   430  	'($a,$b,$c,$d,$e)=@V;'.
   431 @@ -509,7 +509,7 @@
   432  }
   434  sub body_40_59 () {
   435 -  use integer;
   436 +  
   437    my ($k,$n);
   438    my @r=(
   439  	'($a,$b,$c,$d,$e)=@V;'.
   440 @@ -723,7 +723,7 @@
   441  ___
   443  my $aesenc=sub {
   444 -  use integer;
   445 +  
   446    my ($n,$k)=($r/10,$r%10);
   447      if ($k==0) {
   448        $code.=<<___;
   449 @@ -766,7 +766,7 @@
   450  };
   452  sub Xupdate_avx_16_31()		# recall that $Xi starts wtih 4
   453 -{ use integer;
   454 +{ 
   455    my $body = shift;
   456    my @insns = (&$body,&$body,&$body,&$body);	# 40 instructions
   457    my ($a,$b,$c,$d,$e);
   458 @@ -842,7 +842,7 @@
   459  }
   461  sub Xupdate_avx_32_79()
   462 -{ use integer;
   463 +{ 
   464    my $body = shift;
   465    my @insns = (&$body,&$body,&$body,&$body);	# 32 to 48 instructions
   466    my ($a,$b,$c,$d,$e);
   467 @@ -907,7 +907,7 @@
   468  }
   470  sub Xuplast_avx_80()
   471 -{ use integer;
   472 +{ 
   473    my $body = shift;
   474    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   475    my ($a,$b,$c,$d,$e);
   476 @@ -941,7 +941,7 @@
   477  }
   479  sub Xloop_avx()
   480 -{ use integer;
   481 +{ 
   482    my $body = shift;
   483    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   484    my ($a,$b,$c,$d,$e);
   485 @@ -965,7 +965,7 @@
   486  }
   488  sub Xtail_avx()
   489 -{ use integer;
   490 +{ 
   491    my $body = shift;
   492    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   493    my ($a,$b,$c,$d,$e);
   494 Index: crypto/asn1/charmap.pl
   495 --- crypto/asn1/charmap.pl.orig	2000-07-28 03:58:11.000000000 +0200
   496 +++ crypto/asn1/charmap.pl	2012-06-27 10:10:05.000000000 +0200
   497 @@ -1,7 +1,5 @@
   498  #!/usr/local/bin/perl -w
   500 -use strict;
   501 -
   502  my ($i, @arr);
   504  # Set up an array with the type of ASCII characters
   505 Index: crypto/bn/asm/modexp512-x86_64.pl
   506 --- crypto/bn/asm/modexp512-x86_64.pl.orig	2011-12-12 16:12:09.000000000 +0100
   507 +++ crypto/bn/asm/modexp512-x86_64.pl	2012-06-27 10:10:05.000000000 +0200
   508 @@ -70,7 +70,6 @@
   510  open STDOUT,"| $^X $xlate $flavour $output";
   512 -use strict;
   513  my $code=".text\n\n";
   514  my $m=0;
   516 Index: crypto/md5/asm/md5-x86_64.pl
   517 --- crypto/md5/asm/md5-x86_64.pl.orig	2008-12-19 12:17:27.000000000 +0100
   518 +++ crypto/md5/asm/md5-x86_64.pl	2012-06-27 10:10:05.000000000 +0200
   519 @@ -7,8 +7,6 @@
   520  # in the public domain.
   521  #
   523 -use strict;
   524 -
   525  my $code;
   527  # round1_step() does:
   528 Index: crypto/objects/obj_dat.pl
   529 --- crypto/objects/obj_dat.pl.orig	2007-09-18 23:05:21.000000000 +0200
   530 +++ crypto/objects/obj_dat.pl	2012-06-27 10:10:05.000000000 +0200
   531 @@ -2,7 +2,6 @@
   533  # fixes bug in floating point emulation on sparc64 when
   534  # this script produces off-by-one output on sparc64
   535 -use integer;
   537  sub obj_cmp
   538  	{
   539 Index: crypto/objects/objxref.pl
   540 --- crypto/objects/objxref.pl.orig	2009-04-06 18:16:23.000000000 +0200
   541 +++ crypto/objects/objxref.pl	2012-06-27 10:10:05.000000000 +0200
   542 @@ -1,7 +1,5 @@
   543  #!/usr/local/bin/perl
   545 -use strict;
   546 -
   547  my %xref_tbl;
   548  my %oid_tbl;
   550 Index: crypto/perlasm/x86_64-xlate.pl
   551 --- crypto/perlasm/x86_64-xlate.pl.orig	2012-03-13 20:19:31.000000000 +0100
   552 +++ crypto/perlasm/x86_64-xlate.pl	2012-06-27 10:10:05.000000000 +0200
   553 @@ -248,7 +248,6 @@
   555  	# Solaris /usr/ccs/bin/as can't handle multiplications
   556  	# in $self->{label}, new gas requires sign extension...
   557 -	use integer;
   558  	$self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi;
   559  	$self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg;
   560  	$self->{label} =~ s/([0-9]+)/$1<<32>>32/eg;
   561 Index: crypto/sha/asm/sha1-586.pl
   562 --- crypto/sha/asm/sha1-586.pl.orig	2011-06-28 15:53:49.000000000 +0200
   563 +++ crypto/sha/asm/sha1-586.pl	2012-06-27 10:10:05.000000000 +0200
   564 @@ -523,7 +523,7 @@
   565  # round]...
   566  #
   567  sub Xupdate_ssse3_16_31()		# recall that $Xi starts wtih 4
   568 -{ use integer;
   569 +{ 
   570    my $body = shift;
   571    my @insns = (&$body,&$body,&$body,&$body);	# 40 instructions
   572    my ($a,$b,$c,$d,$e);
   573 @@ -607,7 +607,7 @@
   574  }
   576  sub Xupdate_ssse3_32_79()
   577 -{ use integer;
   578 +{ 
   579    my $body = shift;
   580    my @insns = (&$body,&$body,&$body,&$body);	# 32 to 48 instructions
   581    my ($a,$b,$c,$d,$e);
   582 @@ -675,7 +675,7 @@
   583  }
   585  sub Xuplast_ssse3_80()
   586 -{ use integer;
   587 +{ 
   588    my $body = shift;
   589    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   590    my ($a,$b,$c,$d,$e);
   591 @@ -710,7 +710,7 @@
   592  }
   594  sub Xloop_ssse3()
   595 -{ use integer;
   596 +{ 
   597    my $body = shift;
   598    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   599    my ($a,$b,$c,$d,$e);
   600 @@ -735,7 +735,7 @@
   601  }
   603  sub Xtail_ssse3()
   604 -{ use integer;
   605 +{ 
   606    my $body = shift;
   607    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   608    my ($a,$b,$c,$d,$e);
   609 @@ -945,7 +945,7 @@
   610  	&jmp	(&label("loop"));
   612  sub Xupdate_avx_16_31()		# recall that $Xi starts wtih 4
   613 -{ use integer;
   614 +{ 
   615    my $body = shift;
   616    my @insns = (&$body,&$body,&$body,&$body);	# 40 instructions
   617    my ($a,$b,$c,$d,$e);
   618 @@ -1023,7 +1023,7 @@
   619  }
   621  sub Xupdate_avx_32_79()
   622 -{ use integer;
   623 +{ 
   624    my $body = shift;
   625    my @insns = (&$body,&$body,&$body,&$body);	# 32 to 48 instructions
   626    my ($a,$b,$c,$d,$e);
   627 @@ -1088,7 +1088,7 @@
   628  }
   630  sub Xuplast_avx_80()
   631 -{ use integer;
   632 +{ 
   633    my $body = shift;
   634    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   635    my ($a,$b,$c,$d,$e);
   636 @@ -1123,7 +1123,7 @@
   637  }
   639  sub Xloop_avx()
   640 -{ use integer;
   641 +{ 
   642    my $body = shift;
   643    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   644    my ($a,$b,$c,$d,$e);
   645 @@ -1147,7 +1147,7 @@
   646  }
   648  sub Xtail_avx()
   649 -{ use integer;
   650 +{ 
   651    my $body = shift;
   652    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   653    my ($a,$b,$c,$d,$e);
   654 Index: crypto/sha/asm/sha1-x86_64.pl
   655 --- crypto/sha/asm/sha1-x86_64.pl.orig	2011-07-04 15:01:42.000000000 +0200
   656 +++ crypto/sha/asm/sha1-x86_64.pl	2012-06-27 10:10:05.000000000 +0200
   657 @@ -367,7 +367,7 @@
   658  }
   660  sub Xupdate_ssse3_16_31()		# recall that $Xi starts wtih 4
   661 -{ use integer;
   662 +{ 
   663    my $body = shift;
   664    my @insns = (&$body,&$body,&$body,&$body);	# 40 instructions
   665    my ($a,$b,$c,$d,$e);
   666 @@ -448,7 +448,7 @@
   667  }
   669  sub Xupdate_ssse3_32_79()
   670 -{ use integer;
   671 +{ 
   672    my $body = shift;
   673    my @insns = (&$body,&$body,&$body,&$body);	# 32 to 48 instructions
   674    my ($a,$b,$c,$d,$e);
   675 @@ -515,7 +515,7 @@
   676  }
   678  sub Xuplast_ssse3_80()
   679 -{ use integer;
   680 +{ 
   681    my $body = shift;
   682    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   683    my ($a,$b,$c,$d,$e);
   684 @@ -549,7 +549,7 @@
   685  }
   687  sub Xloop_ssse3()
   688 -{ use integer;
   689 +{ 
   690    my $body = shift;
   691    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   692    my ($a,$b,$c,$d,$e);
   693 @@ -574,7 +574,7 @@
   694  }
   696  sub Xtail_ssse3()
   697 -{ use integer;
   698 +{ 
   699    my $body = shift;
   700    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   701    my ($a,$b,$c,$d,$e);
   702 @@ -778,7 +778,7 @@
   703  ___
   705  sub Xupdate_avx_16_31()		# recall that $Xi starts wtih 4
   706 -{ use integer;
   707 +{ 
   708    my $body = shift;
   709    my @insns = (&$body,&$body,&$body,&$body);	# 40 instructions
   710    my ($a,$b,$c,$d,$e);
   711 @@ -854,7 +854,7 @@
   712  }
   714  sub Xupdate_avx_32_79()
   715 -{ use integer;
   716 +{ 
   717    my $body = shift;
   718    my @insns = (&$body,&$body,&$body,&$body);	# 32 to 48 instructions
   719    my ($a,$b,$c,$d,$e);
   720 @@ -919,7 +919,7 @@
   721  }
   723  sub Xuplast_avx_80()
   724 -{ use integer;
   725 +{ 
   726    my $body = shift;
   727    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   728    my ($a,$b,$c,$d,$e);
   729 @@ -953,7 +953,7 @@
   730  }
   732  sub Xloop_avx()
   733 -{ use integer;
   734 +{ 
   735    my $body = shift;
   736    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   737    my ($a,$b,$c,$d,$e);
   738 @@ -977,7 +977,7 @@
   739  }
   741  sub Xtail_avx()
   742 -{ use integer;
   743 +{ 
   744    my $body = shift;
   745    my @insns = (&$body,&$body,&$body,&$body);	# 32 instructions
   746    my ($a,$b,$c,$d,$e);
   747 Index: util/clean-depend.pl
   748 --- util/clean-depend.pl.orig	2007-09-19 16:53:18.000000000 +0200
   749 +++ util/clean-depend.pl	2012-06-27 10:10:05.000000000 +0200
   750 @@ -2,8 +2,6 @@
   751  # Clean the dependency list in a makefile of standard includes...
   752  # Written by Ben Laurie <ben@algroup.co.uk> 19 Jan 1999
   754 -use strict;
   755 -
   756  while(<STDIN>) {
   757      print;
   758      last if /^# DO NOT DELETE THIS LINE/;
   759 Index: util/mklink.pl
   760 --- util/mklink.pl.orig	2008-12-19 14:35:09.000000000 +0100
   761 +++ util/mklink.pl	2012-06-27 10:10:05.000000000 +0200
   762 @@ -15,13 +15,12 @@
   763  # Apart from this, this script should be able to handle even the most
   764  # pathological cases.
   766 -use Cwd;
   767 -
   768  my $from = shift;
   769  my @files = @ARGV;
   771  my @from_path = split(/[\\\/]/, $from);
   772 -my $pwd = getcwd();
   773 +my $pwd = `pwd`;
   774 +$pwd =~ s/\r?\n$//s;
   775  chomp($pwd);
   776  my @pwd_path = split(/[\\\/]/, $pwd);

mercurial