# HG changeset patch # User Rik # Date 1337214299 25200 # Node ID f49e47ab83ca34abe4f36493837aaae1ce5eb07b # Parent d4b4080faa47a70cd02b08373287e17055a46954 maint: Rename mygethelp function to gethelp in scripts/mkdoc.pl * scripts/mkdoc.pl: Rename mygethelp function to gethelp in scripts/mkdoc.pl diff -r d4b4080faa47 -r f49e47ab83ca scripts/mkdoc.pl --- a/scripts/mkdoc.pl Wed May 16 16:45:37 2012 -0700 +++ b/scripts/mkdoc.pl Wed May 16 17:24:59 2012 -0700 @@ -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 "";