File: makeman

package info (click to toggle)
mma 20.12-1
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 51,824 kB
  • sloc: python: 16,563; sh: 26; makefile: 18; perl: 12
file content (16 lines) | stat: -rwxr-xr-x 308 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
#!/usr/bin/env perl

use Modern::Perl;

my %files = qw(
	mma-splitrec.pod mma-splitrec
	mup2mma.pod      mup2mma
	pg2mma.pod       pg2mma
);

while (my ($pod,$exec) = each %files) {
	my $file = "$exec.1";
	my $cmd = qq(pod2man -c " " -r " " --section=1 $pod $exec.1 --name=$exec);
	say $cmd;
	system $cmd;
}