Skip to main content
Revision f66db68e1f3c5d9864a8273a4b69fb3292820a10 authored by Dr. Stephen Henson on 11 February 2013, 11:57:46 UTC, committed by Dr. Stephen Henson on 11 February 2013, 11:57:46 UTC
prepare for release
1 parent 0c4b72e
Raw File
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";
back to top