# 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 --git a/scripts/mkdoc.pl b/scripts/mkdoc.pl --- 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 "";