diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-07 17:49:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-07 17:49:58 +0000 |
| commit | 46487f74b15c77c6f040c8b818f810a5255b1078 (patch) | |
| tree | ab390652270eff34aaac73f45f85a2208c8d0804 /gv.c | |
| parent | a3dfe201291c96fc01babd3d4782d52ba945f2a3 (diff) | |
| download | perl-46487f74b15c77c6f040c8b818f810a5255b1078.tar.gz | |
change $^U to $^WIDE_SYSTEM_CALLS; s/PL_bigchar/PL_widesyscalls/;
introduce -C switch (sets $^WIDE_SYSTEM_CALLS)
p4raw-id: //depot/perl@5029
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -837,7 +837,6 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) case '\017': /* $^O */ case '\020': /* $^P */ case '\024': /* $^T */ - case '\025': /* $^U */ if (len > 1) break; goto magicalize; @@ -846,7 +845,8 @@ Perl_gv_fetchpv(pTHX_ const char *nambeg, I32 add, I32 sv_type) break; goto ro_magicalize; case '\027': /* $^W & $^WARNING_BITS */ - if (len > 1 && strNE(name, "\027ARNING_BITS")) + if (len > 1 && (strNE(name, "\027ARNING_BITS") + || strNE(name, "\027IDE_SYSTEM_CALLS"))) break; goto magicalize; |