Someone (*cough* *cough*) stole VMS' getpwent prototype.

(Fix from Craig Berry)

p4raw-id: //depot/perl@15304

diff --git a/pp_sys.c b/pp_sys.c
index 4760210..941760b 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -82,6 +82,8 @@ extern int h_errno;
 # ifdef HAS_GETPWENT
 #ifndef getpwent
   struct passwd *getpwent (void);
+#elif defined (VMS) && defined (my_getpwent)
+  struct passwd *Perl_my_getpwent (void);
 #endif
 # endif
 #endif