[thirdparty/openssl.git] / util / extract-section.pl

#!/usr/bin/perl

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

print "$ARGV[0]\n";
Commit	Line	Data
401ee37a DSH	1	#!/usr/bin/perl
	2
	3	while(<STDIN>) {
	4	if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
	5	{
	6	print "$1\n";
	7	exit 0;
	8	}
	9	}
	10
	11	print "$ARGV[0]\n";
	12