Sign in
gem5
/
public
/
gem5-resources
/
8ccd059d5dcaaeffe15cd93c17f1e76e92907662
/
.
/
src
/
parsec
/
disk-image
/
parsec
/
parsec-benchmark
/
pkgs
/
libs
/
ssl
/
src
/
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"
;