upd: openssl to 1.1.0

[cassiopeia.git] / lib / openssl / util / err-ins.pl

diff --git a/lib/openssl/util/err-ins.pl b/lib/openssl/util/err-ins.pl
deleted file mode 100755 (executable)
index 31b70df..0000000
--- a/lib/openssl/util/err-ins.pl
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/local/bin/perl
-#
-# tack error codes onto the end of a file
-#
-
-open(ERR,$ARGV[0]) || die "unable to open error file '$ARGV[0]':$!\n";
-@err=<ERR>;
-close(ERR);
-
-open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n";
-
-@out="";
-while (<IN>)
-       {
-       push(@out,$_);
-       last if /BEGIN ERROR CODES/;
-       }
-close(IN);
-
-open(OUT,">$ARGV[1]") || die "unable to open header file '$ARGV[1]':$1\n";
-print OUT @out;
-print OUT @err;
-print OUT <<"EOF";
- 
-#ifdef  __cplusplus
-}
-#endif
-#endif
-
-EOF
-close(OUT);
-
-