--- a/scripts/mkdoc	Wed Jan 26 23:15:59 2011 -0500
+++ b/scripts/mkdoc	Wed Jan 26 23:49:42 2011 -0500
@@ -3,17 +3,17 @@
 # Copyright (C) 1999-2011 John W. Eaton
 #
 # This file is part of Octave.
-# 
+#
 # Octave is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by the
 # Free Software Foundation; either version 3 of the License, or (at
 # your option) any later version.
-# 
+#
 # Octave is distributed in the hope that it will be useful, but WITHOUT
 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 # for more details.
-# 
+#
 # You should have received a copy of the GNU General Public License
 # along with Octave; see the file COPYING.  If not, see
 # <http://www.gnu.org/licenses/>.
@@ -43,24 +43,24 @@
       prefix="./"
     else
       $PERL -w -e '
-	unless (@ARGV == 2) { die "Usage: $0 srcdir m_filename" ; }
-	($srcdir, $m_fname) = ($ARGV[0], $ARGV[1]);
-	$full_fname = $srcdir . $m_fname;
-	exit unless ( $full_fname =~ m{(.*)/(@|)([^/]*)/(.*)\.m} );
-	if ($2) {
-	  $fcn = "$2$3/$4";
-	} else {
-	  $fcn = $4;
-	}
-	$re_srcdir = quotemeta($srcdir);
-	for (qx{ ./gethelp $fcn "$full_fname" < "$full_fname"} ) {
-	  s/^\s+\@/\@/ unless $in_example;
-	  s/^\s+\@group/\@group/;
-	  s/^\s+\@end\s+group/\@end group/;
-	  s|\@c $fcn $re_srcdir|\@c $fcn scripts/|o;
-	  $in_example = (/\s*\@example\b/ .. /\s*\@end\s+example\b/);
-	  print;
-	}' "$prefix" "$arg"
+        unless (@ARGV == 2) { die "Usage: $0 srcdir m_filename" ; }
+        ($srcdir, $m_fname) = ($ARGV[0], $ARGV[1]);
+        $full_fname = $srcdir . $m_fname;
+        exit unless ( $full_fname =~ m{(.*)/(@|)([^/]*)/(.*)\.m} );
+        if ($2) {
+          $fcn = "$2$3/$4";
+        } else {
+          $fcn = $4;
+        }
+        $re_srcdir = quotemeta($srcdir);
+        for (qx{ ./gethelp $fcn "$full_fname" < "$full_fname"} ) {
+          s/^\s+\@/\@/ unless $in_example;
+          s/^\s+\@group/\@group/;
+          s/^\s+\@end\s+group/\@end group/;
+          s|\@c $fcn $re_srcdir|\@c $fcn scripts/|o;
+          $in_example = (/\s*\@example\b/ .. /\s*\@end\s+example\b/);
+          print;
+        }' "$prefix" "$arg"
     fi
   done
 else