Reverting context removal from change #27992. This should

clear up threaded builds on Win32 and VMS.	
p4raw-link: @27992 on //depot/perl: df528165173896ed88fc3da7e1aa8bc3ef3b2416

p4raw-id: //depot/perl@28041

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index f88d401b6a..8ade9c3fb8 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3026,7 +3026,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
 }
 
 STATIC PerlIO *
-S_check_type_and_open(const char *name, const char *mode)
+S_check_type_and_open(pTHX_ const char *name, const char *mode)
 {
     Stat_t st;
     const int st_rc = PerlLIO_stat(name, &st);