Skip to main content
Revision 62f4033381a013c8a8edb6db5345da678495d94f authored by Dr. Stephen Henson on 04 February 2013, 23:12:58 UTC, committed by Dr. Stephen Henson on 04 February 2013, 23:12:58 UTC
typo
1 parent f9f6a8f
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