Correct Freudian slip.

p4raw-id: //depot/cfgperl@6036

diff --git a/pp_sys.c b/pp_sys.c
index 62b4b10..79938fb 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4788,7 +4788,7 @@ PP(pp_gpwent)
 #   ifdef HAS_GETPWENT
        pwent  = getpwent();
 #   else
-       DIE(aTHX_ PL_no_fun, "getpwent");
+       DIE(aTHX_ PL_no_func, "getpwent");
 #   endif
        break;
     }