# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1231209234 18000
# Node ID dd52e541418b6ad9d788c0710bdf12727f06f1ab
# Parent  c3ac9f2772cd3aa2b6248fcf79b5e1520e337a4c
scripts/mkdoc: set defaults for FIND and PERL; check usage

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2009-01-05  John W. Eaton  <jwe@octave.org>
+
+	* mkdoc: Set defaults for FIND and PERL.  Check usage.
+
 2009-01-01  Thorsten Meyer  <thorsten.meyier@gmx.de>
 
 	* miscellaneous/__xzip__.m: Fix error messages, add tests.
diff --git a/scripts/mkdoc b/scripts/mkdoc
--- a/scripts/mkdoc
+++ b/scripts/mkdoc
@@ -20,10 +20,17 @@
 
 set -e
 
-if test $# != 1; then
+FIND=${FIND:-'find'}
+
+PERL=${PERL:-'perl'}
+
+if test $# -eq 1; then
+  d=$1
+elif test $# -eq 0; then
   d=.
 else
-  d=$1
+  echo "usage: mkdoc [directory]" 1>&2
+  exit 1
 fi
 
 if test -f gethelp; then