diff options
Diffstat (limited to 'openssl/trunk/util/err-ins.pl')
-rwxr-xr-x | openssl/trunk/util/err-ins.pl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/openssl/trunk/util/err-ins.pl b/openssl/trunk/util/err-ins.pl deleted file mode 100755 index 31b70df8..00000000 --- a/openssl/trunk/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); - - |