diff options
| author | cvs2svn <admin@example.com> | 2008-09-06 12:15:55 +0000 |
|---|---|---|
| committer | cvs2svn <admin@example.com> | 2008-09-06 12:15:55 +0000 |
| commit | 661df680be771facf5443a396086697851bac36f (patch) | |
| tree | 605abf88d7bd78c7d45c81f0efe3fb6a8d30a6df /src/lib/libcrypto/util/extract-section.pl | |
| parent | f1625f274acf5dcd5601f6cb5e29e233b2a441a3 (diff) | |
| download | openbsd-openssl_0_9_8_h.tar.gz openbsd-openssl_0_9_8_h.tar.bz2 openbsd-openssl_0_9_8_h.zip | |
This commit was manufactured by cvs2git to create tag 'openssl_0_9_8_h'.openssl_0_9_8_h
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 | |||