diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-30 11:15:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-30 11:15:12 +0000 |
| commit | a453c1697467fe606ef79b5ab7a0eafaa8e78e7a (patch) | |
| tree | 861b2d7ac5de461c3c5bf8f31bd484b3001f083e /sv.c | |
| parent | 6063ba187760a62f10a97ba9dd6ff5a93107bb51 (diff) | |
| download | perl-a453c1697467fe606ef79b5ab7a0eafaa8e78e7a.tar.gz | |
Change PL_numeric_radix to PL_numeric_radix_sv (and leave in
a dummy for PL_numeric_radix); no pressing reason to break
binary compatibility; regen API.
p4raw-id: //depot/perl@9910
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2533,7 +2533,7 @@ Perl_looks_like_number(pTHX_ SV *sv) ) { #ifdef USE_LOCALE_NUMERIC if (specialradix) - s += SvCUR(PL_numeric_radix); + s += SvCUR(PL_numeric_radix_sv); else #endif s++; @@ -2549,7 +2549,7 @@ Perl_looks_like_number(pTHX_ SV *sv) ) { #ifdef USE_LOCALE_NUMERIC if (specialradix) - s += SvCUR(PL_numeric_radix); + s += SvCUR(PL_numeric_radix_sv); else #endif s++; @@ -9081,7 +9081,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_numeric_name = SAVEPV(proto_perl->Inumeric_name); PL_numeric_standard = proto_perl->Inumeric_standard; PL_numeric_local = proto_perl->Inumeric_local; - PL_numeric_radix = sv_dup_inc(proto_perl->Inumeric_radix); + PL_numeric_radix_sv = sv_dup_inc(proto_perl->Inumeric_radix_sv); #endif /* !USE_LOCALE_NUMERIC */ /* utf8 character classes */ |