# HG changeset patch # User Rik # Date 1337214299 25200 # Node ID 425c075e3c7006c5ef98397270659dfbc04ce0c2 # Parent 41a05ee9021a4ff21377dbb0242345d878a75035 maint: Rename mygethelp function to gethelp in scripts/mkdoc.pl * scripts/mkdoc.pl: Rename mygethelp function to gethelp in scripts/mkdoc.pl diff -r 41a05ee9021a -r 425c075e3c70 scripts/mkdoc.pl --- a/scripts/mkdoc.pl Thu May 10 16:58:41 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 "";