This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] Revert to keeping (some) constant strings as globals
[perl5.git] / perlvars.h
index b5488ab..b58ea16 100644 (file)
@@ -157,3 +157,9 @@ PERLVARI(Gnumeric_local,    bool,   TRUE)   /* Assume local numerics */
 
 #endif /* !USE_LOCALE_NUMERIC */
 
+/* constants (these are not literals to facilitate pointer comparisons) */
+PERLVARIC(GYes,                char *, "1");
+PERLVARIC(GNo,         char *, "");
+PERLVARIC(Ghexdigit,   char *, "0123456789abcdef0123456789ABCDEFx");
+PERLVARIC(Gpatleave,   char *, "\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}");
+