Tweak corelist.pl's heuristics to cope with the renamed directoriess in ext/

[p5sagit/p5-mst-13.2.git] / autodoc.pl

diff --git a/autodoc.pl b/autodoc.pl
index 4cccc35..325d778 100644 (file)
--- 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.