[win32] foo() -> PerlGroup_foo() patch from ActiveState

p4raw-id: //depot/win32/perl@433

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_hot.c b/pp_hot.c
index 633a7b09fe..6400d5f6eb 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1059,7 +1059,7 @@ do_readline(void)
 		       ((struct NAM *)((struct FAB *)cxt)->fab$l_nam)->nam$l_fnb
 		       but that's unsupported, so I don't want to do it now and
 		       have it bite someone in the future. */
-		    strcat(tmpfnam,tmpnam(NULL));
+		    strcat(tmpfnam,PerlLIO_tmpnam(NULL));
 		    cp = SvPV(tmpglob,i);
 		    for (; i; i--) {
 		       if (cp[i] == ';') hasver = 1;