bump patchlevel to 69, various little tweaks (tested on win32, Solaris

under several build configurations)

p4raw-id: //depot/perl@1262

1 files changed, 1 insertions, 2 deletions

diff --git a/toke.c b/toke.c
index 1c098abdb4..24bf27dd5e 100644
--- a/toke.c
+++ b/toke.c
@@ -4715,9 +4715,8 @@ checkcomma(register char *s, char *name, char *what)
 STATIC SV *
 new_constant(char *s, STRLEN len, char *key, SV *sv, SV *pv, char *type) 
 {
-    HV *table = perl_get_hv("\10", FALSE); /* ^H */
-    dTHR;
     dSP;
+    HV *table = perl_get_hv("\10", FALSE); /* ^H */
     BINOP myop;
     SV *res;
     bool oldcatch = CATCH_GET;