#!/usr/bin/perl while(<STDIN>) { if (/=for\s+comment\s+openssl_manual_section:(\S+)/) { print "$1\n"; exit 0; } } print "$ARGV[0]\n";
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 10713 | Robert Cowham |
Populate //guest/robert_cowham/openssl/1.0.1j/... from //guest/robert_cowham/openssl/main/.... |
||
//guest/robert_cowham/openssl/main/util/extract-section.pl | |||||
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |