freebsd-src/crypto/openssl/util/extract-section.pl
2006-07-29 19:10:21 +00:00

13 lines
146 B
Perl

#!/usr/bin/perl
while(<STDIN>) {
if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
{
print "$1\n";
exit 0;
}
}
print "$ARGV[0]\n";