upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / crypto / des / asm / crypt586.pl

diff --git a/lib/openssl/crypto/des/asm/crypt586.pl b/lib/openssl/crypto/des/asm/crypt586.pl
index e36f7d44bd7dc4e71f35df07e795a275ddb5fefb..d5911a1858237dd309ce9904b990521ac0ce9955 100644 (file)
--- a/lib/openssl/crypto/des/asm/crypt586.pl
+++ b/lib/openssl/crypto/des/asm/crypt586.pl
@@ -1,15 +1,21 @@
-#!/usr/local/bin/perl
+#! /usr/bin/env perl
+# Copyright 1995-2016 The OpenSSL Project Authors. All Rights Reserved.
 #
+# Licensed under the OpenSSL license (the "License").  You may not use
+# this file except in compliance with the License.  You can obtain a copy
+# in the file LICENSE in the source distribution or at
+# https://www.openssl.org/source/license.html
+
 # The inner loop instruction sequence and the IP/FP modifications are from
 # Svend Olaf Mikkelsen <svolaf@inet.uni-c.dk>
-# I've added the stuff needed for crypt() but I've not worried about making
-# things perfect.
-#
 
 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
 push(@INC,"${dir}","${dir}../../perlasm");
 require "x86asm.pl";
 
+$output=pop;
+open STDOUT,">$output";
+
 &asm_init($ARGV[0],"crypt586.pl");
 
 $L="edi";
@@ -19,6 +25,8 @@ $R="esi";
 &fcrypt_body("fcrypt_body");
 &asm_finish();
 
+close STDOUT;
+
 sub fcrypt_body
        {
        local($name,$do_ip)=@_;