Skip to main content
Revision 4d27e3d339ea3e6bff22f96ef2f7b67dc25899d7 authored by Andy Polyakov on 21 August 2007, 15:26:51 UTC, committed by Andy Polyakov on 21 August 2007, 15:26:51 UTC
Make tesfipsssl pass.
1 parent 7d59e44
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