Revision 43257b9f51de749262258668c77c2f0f99d7a15b authored by Richard Levitte on 13 January 2015, 21:04:58 UTC, committed by Richard Levitte on 13 January 2015, 23:14:20 UTC
Reviewed-by: Matt Caswell <matt@openssl.org>
1 parent 10771e3
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";

Computing file changes ...