Initial Commit
This commit is contained in:
12
openssl-1.0.2f/util/extract-section.pl
Normal file
12
openssl-1.0.2f/util/extract-section.pl
Normal file
@@ -0,0 +1,12 @@
|
||||
#!/usr/bin/perl
|
||||
|
||||
while(<STDIN>) {
|
||||
if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
|
||||
{
|
||||
print "$1\n";
|
||||
exit 0;
|
||||
}
|
||||
}
|
||||
|
||||
print "$ARGV[0]\n";
|
||||
|
||||
Reference in New Issue
Block a user