diff options
Diffstat (limited to 'docs')
| -rw-r--r-- | docs/cmdline-opts/Makefile.am | 2 | ||||
| -rwxr-xr-x | docs/cmdline-opts/gen.pl | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/docs/cmdline-opts/Makefile.am b/docs/cmdline-opts/Makefile.am index 3467de156..c844bca4f 100644 --- a/docs/cmdline-opts/Makefile.am +++ b/docs/cmdline-opts/Makefile.am @@ -73,4 +73,4 @@ EXTRA_DIST = $(DPAGES) MANPAGE.md gen.pl $(OTHERPAGES) all: $(MANPAGE) $(MANPAGE): $(DPAGES) $(OTHERPAGES) - @PERL@ gen.pl mainpage > $(MANPAGE) + @PERL@ $(srcdir)/gen.pl mainpage $(srcdir) > $(MANPAGE) diff --git a/docs/cmdline-opts/gen.pl b/docs/cmdline-opts/gen.pl index 89a5df845..91e893f3e 100755 --- a/docs/cmdline-opts/gen.pl +++ b/docs/cmdline-opts/gen.pl @@ -16,7 +16,7 @@ Unfortunately it seems some perls like msysgit can't handle a global input-only =end comment =cut -my $some_dir="."; +my $some_dir=$ARGV[1] || "."; opendir(my $dh, $some_dir) || die "Can't opendir $some_dir: $!"; my @s = grep { /\.d$/ && -f "$some_dir/$_" } readdir($dh); @@ -101,7 +101,7 @@ sub added { sub single { my ($f, $standalone)=@_; - open(F, "<:crlf", "$f") || + open(F, "<:crlf", "$some_dir/$f") || return 1; my $short; my $long; @@ -235,7 +235,7 @@ sub single { sub getshortlong { my ($f)=@_; - open(F, "<:crlf", "$f"); + open(F, "<:crlf", "$some_dir/$f"); my $short; my $long; my $help; @@ -281,7 +281,7 @@ sub indexoptions { sub header { my ($f)=@_; - open(F, "<:crlf", "$f"); + open(F, "<:crlf", "$some_dir/$f"); my @d; while(<F>) { push @d, $_; @@ -371,7 +371,7 @@ sub getargs { } } while($f); - print "Usage: gen.pl <mainpage/listhelp/single FILE/protos>\n"; + print "Usage: gen.pl <mainpage/listhelp/single FILE/protos> [srcdir]\n"; } #------------------------------------------------------------------------ |