diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 03:22:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 03:22:46 +0000 |
| commit | f5f7a0b482a96221fe45c96ca998d928c8ea7eff (patch) | |
| tree | 3b31f97fa52e2b424a5ad64b9c52a42de51854a5 /pp_hot.c | |
| parent | bf49b057b09bec860588a9b554c3a77683394722 (diff) | |
| parent | 30382c73ff93b57b951492a5a0d1cba2de577e49 (diff) | |
| download | perl-f5f7a0b482a96221fe45c96ca998d928c8ea7eff.tar.gz | |
integrate cfgperl contents into mainline
p4raw-id: //depot/perl@4303
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 10 |
1 files changed, 2 insertions, 8 deletions
@@ -601,15 +601,9 @@ PP(pp_rv2hv) dTARGET; if (SvTYPE(hv) == SVt_PVAV) hv = avhv_keys((AV*)hv); -#ifdef IV_IS_QUAD if (HvFILL(hv)) - Perl_sv_setpvf(aTHX_ TARG, "%" PERL_PRId64 "/%" PERL_PRId64, - (Quad_t)HvFILL(hv), (Quad_t)HvMAX(hv) + 1); -#else - if (HvFILL(hv)) - Perl_sv_setpvf(aTHX_ TARG, "%ld/%ld", - (long)HvFILL(hv), (long)HvMAX(hv) + 1); -#endif + Perl_sv_setpvf(aTHX_ TARG, "%"IVdf"/%"IVdf, + (IV)HvFILL(hv), (IV)HvMAX(hv) + 1); else sv_setiv(TARG, 0); |