diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1997-12-02 07:28:23 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1997-12-02 07:28:23 +0000 |
| commit | 3fe35a814d0a98f430bf0a538c953f3564df33ca (patch) | |
| tree | 0b62c5168c8d25149355a37131a6f4b42fd9b10a /perlvars.h | |
| parent | d56e67234a7ede28ce69ee834917e4b5025d971b (diff) | |
| download | perl-3fe35a814d0a98f430bf0a538c953f3564df33ca.tar.gz | |
[win32] Revert to keeping (some) constant strings as globals
p4raw-id: //depot/win32/perl@349
Diffstat (limited to 'perlvars.h')
| -rw-r--r-- | perlvars.h | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perlvars.h b/perlvars.h index b5488ab6a6..b58ea16728 100644 --- a/perlvars.h +++ b/perlvars.h @@ -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[{]}"); + |