diff options
| author | cvs2svn <admin@example.com> | 2009-04-06 06:30:09 +0000 |
|---|---|---|
| committer | cvs2svn <admin@example.com> | 2009-04-06 06:30:09 +0000 |
| commit | 47d4d80e3f807773c3c210677b5d907288717ad6 (patch) | |
| tree | 4772333f82a4c58661741b68efb5c1cd02b03022 /src/lib/libcrypto/util/extract-section.pl | |
| parent | 40d5d67842948fbf904eb73da8f09a2ebcd2e243 (diff) | |
| download | openbsd-openssl_0_9_8_k.tar.gz openbsd-openssl_0_9_8_k.tar.bz2 openbsd-openssl_0_9_8_k.zip | |
This commit was manufactured by cvs2git to create tag 'openssl_0_9_8_k'.openssl_0_9_8_k
Diffstat (limited to 'src/lib/libcrypto/util/extract-section.pl')
| -rw-r--r-- | src/lib/libcrypto/util/extract-section.pl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/lib/libcrypto/util/extract-section.pl b/src/lib/libcrypto/util/extract-section.pl new file mode 100644 index 0000000000..7a0ba4f69a --- /dev/null +++ b/src/lib/libcrypto/util/extract-section.pl | |||
| @@ -0,0 +1,12 @@ | |||
| 1 | #!/usr/bin/perl | ||
| 2 | |||
| 3 | while(<STDIN>) { | ||
| 4 | if (/=for\s+comment\s+openssl_manual_section:(\S+)/) | ||
| 5 | { | ||
| 6 | print "$1\n"; | ||
| 7 | exit 0; | ||
| 8 | } | ||
| 9 | } | ||
| 10 | |||
| 11 | print "$ARGV[0]\n"; | ||
| 12 | |||