update date
[openssl.git] / util / extract-section.pl
1 #!/usr/bin/perl
2
3 while(<STDIN>) {
4         if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
5                 {
6                 print "$1\n";
7                 exit 0;
8                 }
9 }
10
11 print "$ARGV[0]\n";
12