aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2018-03-06 10:07:42 +0200
committerSergey Poznyakoff <gray@gnu.org>2018-03-06 10:07:42 +0200
commitc9a7a3860802915125b06c82d93faa67ddeb9292 (patch)
treeece92ea2a9617bb9fb47726b9386eaa42497b3a8
parent272ebc9cfd4e29429e0550d30c75c20e1bef4d89 (diff)
downloadglacier-c9a7a3860802915125b06c82d93faa67ddeb9292.tar.gz
glacier-c9a7a3860802915125b06c82d93faa67ddeb9292.tar.bz2
Rewrite generation of the man1 pages. Generate glacier.1
-rw-r--r--Makefile.PL11
1 files changed, 6 insertions, 5 deletions
diff --git a/Makefile.PL b/Makefile.PL
index f82ba5a..b8f0f3b 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -62,7 +62,8 @@ sub MY::postamble {
all:: subcommand-manpages
.PHONY: subcommand-manpages
subcommand-manpages: manifypods
- $(NOECHO) $(ECHO) Generating manpages for the subcommands
+ $(NOECHO) $(ECHO) Generating manpages for the subcommands
+ $(NOECHO) $(FULLPERLRUN) -pe 's/App::Glacier\s+3/glacier 1/g;s/App::Glacier/glacier/g' $(INST_MAN3DIR)/App::Glacier.$(MAN3EXT) > $(INST_MAN1DIR)/glacier.$(MAN1EXT)
_MAKE_
;
push @INC, 'lib';
@@ -72,10 +73,10 @@ _MAKE_
$mod =~ s{\.pm$}{};
$mod =~ s{/}{::}g;
if (my $command = pod_command_name($mod)) {
- my $man1file = $command;
- $man1file =~ s/ /-/;
- $man1file .= '.$(MAN1EXT)';
- $s .= "\t\$(NOECHO)sed 's/$mod 3/$command 1/' \$(INST_MAN3DIR)/$mod.\$(MAN3EXT) > \$(INST_MAN1DIR)/$man1file\n"
+ my $man1base = $command;
+ $man1base =~ s/ /-/;
+ my $man1file = $man1base . '.$(MAN1EXT)';
+ $s .= "\t\$(NOECHO)\$(FULLPERLRUN) -pe 's/$mod\\s+3/$man1base 1/' \$(INST_MAN3DIR)/$mod.\$(MAN3EXT) > \$(INST_MAN1DIR)/$man1file\n"
}
}
pop @INC;

Return to:

Send suggestions and report system problems to the System administrator.