Skip to main content
Revision 4bc991384404d05e49e3aa622c142c7b7d05ef7b authored by Matt Caswell on 22 January 2015, 01:02:03 UTC, committed by Matt Caswell on 22 January 2015, 09:46:26 UTC
Rerun util/openssl-format-source -v -c .
Reviewed-by: Tim Hudson <tjh@openssl.org>
1 parent a8b966f
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