X-Git-Url: https://code.wpia.club/?a=blobdiff_plain;f=lib%2Fopenssl%2Futil%2Ferr-ins.pl;fp=lib%2Fopenssl%2Futil%2Ferr-ins.pl;h=0000000000000000000000000000000000000000;hb=02ed66432c92de70694700164f986190aad3cbc5;hp=31b70df8d0e28e329bbb1b15ae69a6337ee357c3;hpb=89016837dcbf2775cd15dc8cbaba00dc6379f86e;p=cassiopeia.git diff --git a/lib/openssl/util/err-ins.pl b/lib/openssl/util/err-ins.pl deleted file mode 100755 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=; -close(ERR); - -open(IN,$ARGV[1]) || die "unable to open header file '$ARGV[1]':$!\n"; - -@out=""; -while () - { - 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); - -