aboutsummaryrefslogtreecommitdiff
path: root/openssl/util/extract-section.pl
blob: 7a0ba4f69a7a6407cd95e80a1e486d962fd54937 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

while(<STDIN>) {
	if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
		{
		print "$1\n";
		exit 0;
		}
}

print "$ARGV[0]\n";