diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-26 17:03:56 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-26 17:03:56 +0000 |
| commit | 4df7f6afd80e96d28fd18bba9dda8b38b6ed6700 (patch) | |
| tree | 4a12163f0a4326186eaaa2db0ba65cb330932dc6 /dump.c | |
| parent | 0707d6cc81b12c5d582707b1575b1be4695dd7fc (diff) | |
| download | perl-4df7f6afd80e96d28fd18bba9dda8b38b6ed6700.tar.gz | |
Eliminate SVt_RV, and use SVt_IV to store plain references.
This frees up a scalar type for first class regular expressions.
p4raw-id: //depot/perl@32734
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -31,12 +31,12 @@ static const char* const svtypenames[SVt_LAST] = { "NULL", "BIND", "IV", - "RV", "NV", "PV", "PVIV", "PVNV", "PVMG", + "ORANGE", "PVGV", "PVLV", "PVAV", @@ -51,12 +51,12 @@ static const char* const svshorttypenames[SVt_LAST] = { "UNDEF", "BIND", "IV", - "RV", "NV", "PV", "PVIV", "PVNV", "PVMG", + "ORANGE", "GV", "PVLV", "AV", @@ -1529,7 +1529,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo } if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV && type != SVt_PVCV && !isGV_with_GP(sv)) - || type == SVt_IV) { + || (type == SVt_IV && !SvROK(sv))) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE || SvIsCOW(sv) @@ -2371,9 +2371,6 @@ Perl_sv_xmlpeek(pTHX_ SV *sv) case SVt_NV: sv_catpv(t, " NV=\""); break; - case SVt_RV: - sv_catpv(t, " RV=\""); - break; case SVt_PV: sv_catpv(t, " PV=\""); break; @@ -2407,6 +2404,9 @@ Perl_sv_xmlpeek(pTHX_ SV *sv) case SVt_BIND: sv_catpv(t, " BIND=\""); break; + case SVt_ORANGE: + sv_catpv(t, " ORANGE=\""); + break; case SVt_PVFM: sv_catpv(t, " FM=\""); break; |