diff options
author | Sergey Poznyakoff <gray@gnu.org> | 2018-03-06 10:07:42 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org> | 2018-03-06 10:07:42 +0200 |
commit | c9a7a3860802915125b06c82d93faa67ddeb9292 (patch) | |
tree | ece92ea2a9617bb9fb47726b9386eaa42497b3a8 | |
parent | 272ebc9cfd4e29429e0550d30c75c20e1bef4d89 (diff) | |
download | glacier-c9a7a3860802915125b06c82d93faa67ddeb9292.tar.gz glacier-c9a7a3860802915125b06c82d93faa67ddeb9292.tar.bz2 |
Rewrite generation of the man1 pages. Generate glacier.1
-rw-r--r-- | Makefile.PL | 11 |
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; |