add dVAR's for PERL_GLOBAL_STRUCT_PRIVATE builds

The perl build option -DPERL_GLOBAL_STRUCT_PRIVATE had bit-rotted
due to lack of smoking. The main fix is to just add 'dVAR;' to any
functions which have a pTHX arg. It's a NOOP on normal builds.

1 files changed, 1 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 4cdf832453..5965f1adc0 100644
--- a/pp.c
+++ b/pp.c
@@ -4034,6 +4034,7 @@ PP(pp_ucfirst)
 
 PP(pp_uc)
 {
+    dVAR;
     dSP;
     SV *source = TOPs;
     STRLEN len;