Sign in
cobalt
/
cobalt
/
2a8c847d785c1602f60915c8e0112e0aec6a15a5
/
.
/
src
/
third_party
/
openssl
/
openssl
/
util
/
extract-section.pl
blob: 7a0ba4f69a7a6407cd95e80a1e486d962fd54937 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
while
(<
STDIN
>)
{
if
(
/=for\s+comment\s+openssl_manual_section:(\S+)/
)
{
print
"$1\n"
;
exit
0
;
}
}
print
"$ARGV[0]\n"
;