diff options
| author | Max Maischein <corion@corion.net> | 2009-04-18 18:36:28 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-04-18 18:38:08 +0100 |
| commit | cd09325492c136b431317b9dee7455475831ae5b (patch) | |
| tree | 8f216a95eada348b95691ad84e737d1ceafdbbf6 /autodoc.pl | |
| parent | 2d871820eed875a358136f801be26d3cd6e4636e (diff) | |
| download | perl-cd09325492c136b431317b9dee7455475831ae5b.tar.gz | |
Make autodoc.pl accept the root dir in @ARGV
Diffstat (limited to 'autodoc.pl')
| -rw-r--r-- | autodoc.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/autodoc.pl b/autodoc.pl index 4cccc354db..325d778f98 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -126,6 +126,12 @@ _EOF_ close $fh or die "Can't close $filename: $!"; } +if (@ARGV) { + my $workdir = shift; + chdir $workdir + or die "Couldn't chdir to '$workdir': $!"; +} + my $file; # glob() picks up docs from extra .c or .h files that may be in unclean # development trees. |