This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
bump patchlevel to 69, various little tweaks (tested on win32, Solaris
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 1c098ab..24bf27d 100644 (file)
--- 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;