aboutsummaryrefslogtreecommitdiff
path: root/openssl/vendor/0.9.8d/util/err-ins.pl
diff options
context:
space:
mode:
authorRob Austein <sra@hactrn.net>2006-10-09 16:22:20 +0000
committerRob Austein <sra@hactrn.net>2006-10-09 16:22:20 +0000
commit084adb601f2d375395c6cdcedf8af91f1065fe4e (patch)
treefcc9ae9597924b12b6ff7b5b7dbfb2b65f20fb29 /openssl/vendor/0.9.8d/util/err-ins.pl
parenteb9264fc2ef786e8c4e3d430834b9b9e9e0b9c0a (diff)
Feh, wrong vendor branch merge proceedure, clean up before trying again.
svn path=/openssl/vendor/0.9.8d; revision=374
Diffstat (limited to 'openssl/vendor/0.9.8d/util/err-ins.pl')
-rwxr-xr-xopenssl/vendor/0.9.8d/util/err-ins.pl33
1 files changed, 0 insertions, 33 deletions
diff --git a/openssl/vendor/0.9.8d/util/err-ins.pl b/openssl/vendor/0.9.8d/util/err-ins.pl
deleted file mode 100755
index 31b70df8..00000000
--- a/openssl/vendor/0.9.8d/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);
-
-