Skip to main content
Revision 6bd61198fb28b454090890f8efd3f86adf8773cc authored by Dr. Stephen Henson on 20 November 2012, 00:29:09 UTC, committed by Dr. Stephen Henson on 20 November 2012, 00:29:09 UTC
fix leaks
1 parent 23b5e47
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