1 files changed, 1 insertions, 0 deletions
diff --git a/numeric.c b/numeric.c
index 38f00fc6ed..297dbdd756 100644
--- a/numeric.c
+++ b/numeric.c
@@ -261,6 +261,7 @@ number may use '_' characters to separate digits.
 
 UV
 Perl_grok_hex(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) {
+    dVAR;
     const char *s = start;
     STRLEN len = *len_p;
     UV value = 0;