diff options
| author | cvs2svn <admin@example.com> | 2014-04-13 15:16:39 +0000 |
|---|---|---|
| committer | cvs2svn <admin@example.com> | 2014-04-13 15:16:39 +0000 |
| commit | 0d46071f78b35b22b9bb6521e9535aaab853d8d8 (patch) | |
| tree | 5eeb72b2f65d8af14113c037fab4e843a1c5ec3d /src/lib/libcrypto/util/extract-section.pl | |
| parent | 25175e3da5ec29dca5edfe32f588ea68b17071c9 (diff) | |
| download | openbsd-openssl_1_0_1_g.tar.gz openbsd-openssl_1_0_1_g.tar.bz2 openbsd-openssl_1_0_1_g.zip | |
This commit was manufactured by cvs2git to create tag 'openssl_1_0_1_g'.openssl_1_0_1_g
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 | |||