extract-section.pl « util - github.com/openssl/openssl.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

extract-section.pl « util - github.com/openssl/openssl.git - Unnamed repository; edit this file 'description' to name the repository.

index : github.com/openssl/openssl.git

Unnamed repository; edit this file 'description' to name the repository.

www-data

summary refs log tree commit diff

path: root/util/extract-section.pl

blob: 7a0ba4f69a7a6407cd95e80a1e486d962fd54937 (plain)

#!/usr/bin/perl

while(<STDIN>) {
	if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
		{
		print "$1\n";
		exit 0;
		}
}

print "$ARGV[0]\n";