Report /pro/3gl/CPAN/perl-5.7.1

[p5sagit/p5-mst-13.2.git] / util.c

diff --git a/util.c b/util.c
index 1ab05e6..4b96250 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3614,7 +3614,7 @@ return FALSE
         (dp->d_name[1] == '.' && dp->d_name[2] == '\0')))
 
 /*
-=for apidoc sv_getcwd
+=for apidoc getcwd_sv
 
 Fill the sv with current working directory
 
@@ -3630,7 +3630,7 @@ Fill the sv with current working directory
  *     back into. */
 
 int
-Perl_sv_getcwd(pTHX_ register SV *sv)
+Perl_getcwd_sv(pTHX_ register SV *sv)
 {
 #ifndef PERL_MICRO