This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix locale.c under -DPERL_GLOBAL_STRUCT
authorDavid Mitchell <davem@iabyn.com>
Sat, 7 Jun 2014 13:16:21 +0000 (14:16 +0100)
committerDavid Mitchell <davem@iabyn.com>
Sat, 7 Jun 2014 13:16:21 +0000 (14:16 +0100)
locale.c

index eeec52c..0ecce3c 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1389,6 +1389,7 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
 bool
 Perl__is_in_locale_category(pTHX_ const bool compiling, const int category)
 {
+    dVAR;
     /* Internal function which returns if we are in the scope of a pragma that
      * enables the locale category 'category'.  'compiling' should indicate if
      * this is during the compilation phase (TRUE) or not (FALSE). */