From 7cdd8b31c7e76d6cb7e1c568f5c9de585b44b4e7 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 11 Dec 2013 22:50:28 -0700 Subject: [PATCH] perl.h: Revise a locale setting macro This macro toggles to the C locale. It should not depend on being in the scope of 'use locale' to do that, so remove the check. I couldn't figure out a test case for this, but I'm pretty sure there is a some convoluted scheme that this change averts a bug from. --- perl.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl.h b/perl.h index 42c4a4c..328c969 100644 --- a/perl.h +++ b/perl.h @@ -5237,7 +5237,7 @@ typedef struct am_table_short AMTS; set_numeric_local(); #define STORE_NUMERIC_LOCAL_SET_STANDARD() \ - bool was_local = PL_numeric_local && IN_LOCALE; \ + bool was_local = PL_numeric_local; \ if (was_local) SET_NUMERIC_STANDARD(); #define STORE_NUMERIC_STANDARD_SET_LOCAL() \ -- 2.7.4