Mercurial > hg > octave-nkf
changeset 15829:425c075e3c70 stable
maint: Rename mygethelp function to gethelp in scripts/mkdoc.pl
* scripts/mkdoc.pl: Rename mygethelp function to gethelp in scripts/mkdoc.pl
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Wed, 16 May 2012 17:24:59 -0700 |
parents | 41a05ee9021a |
children | 5b3e56d588b1 |
files | scripts/mkdoc.pl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/mkdoc.pl +++ b/scripts/mkdoc.pl @@ -50,7 +50,7 @@ $fcn = $4; } - @help_txt = mygethelp ($fcn, $full_fname); + @help_txt = gethelp ($fcn, $full_fname); next MFILE if ($help_txt[0] eq ""); print "$fcn\n"; @@ -69,7 +69,7 @@ ################################################################################ # Subroutines ################################################################################ -sub mygethelp +sub gethelp { ($fcn, $fname) = @_[0..1]; open (FH, $fname) or return "";