From 27da23d53ccce622bc51822f59df8def79b4df95 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 18 Apr 2005 16:18:30 +0300
Subject: Symbian port of Perl Message-ID:
 <B356D8F434D20B40A8CEDAEC305A1F2453D653@esebe105.NOE.Nokia.com>

p4raw-id: //depot/perl@24271
---
 numeric.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'numeric.c')

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;
-- 
cgit v1.2.1