Mercurial > hg > octave-lyh

diff scripts/mkdoc.pl @ 14744:a52b03df22cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave 2-space indent for helper Perl scripts. * doc/interpreter/munge-texi.pl, scripts/mkdoc.pl: Use Octave 2-space indent for helper Perl scripts.
author Rik <octave@nomad.inbox5.com>
date Thu, 07 Jun 2012 11:08:30 -0700
parents f49e47ab83ca
children 3f4091dddc13
line wrap: on
line diff
--- a/scripts/mkdoc.pl
+++ b/scripts/mkdoc.pl
@@ -44,11 +44,10 @@
 
   $full_fname = $srcdir . $m_fname;
   next MFILE unless ( $full_fname =~ m{(.*)/(@|)([^/]*)/(.*)\.m} );
-  if ($2) {
-    $fcn = "$2$3/$4";
-  } else {
-    $fcn = $4;
-  }
+  if ($2)
+    { $fcn = "$2$3/$4"; }
+  else
+    { $fcn = $4; }
 
   @help_txt = gethelp ($fcn, $full_fname);
   next MFILE if ($help_txt[0] eq "");