Skip to main content
Revision b0ee17ad475c97f068c7314efafdd8a53d92af54 authored by Dr. Stephen Henson on 16 December 2013, 14:07:18 UTC, committed by Dr. Stephen Henson on 16 December 2013, 14:07:18 UTC
Add MIPS support.
1 parent 4f6c4c1
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