diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-06-08 10:08:01 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-06-08 10:08:01 +0000 |
| commit | f8c7b90fa8a3676239aeea262e148f9a4e497558 (patch) | |
| tree | 2bd92ea6dd787a91993da91818f00e45c79399e6 /dump.c | |
| parent | 1a4fad37125bac3e69c02ee6b2e57c14777484e6 (diff) | |
| download | perl-f8c7b90fa8a3676239aeea262e148f9a4e497558.tar.gz | |
s/PERL_COPY_ON_WRITE/PERL_OLD_COPY_ON_WRITE/g
p4raw-id: //depot/perl@24755
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1281,7 +1281,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_IV) { if (SvIsUV(sv) -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE || SvIsCOW(sv) #endif ) @@ -1290,7 +1290,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " IV = %"IVdf, (IV)SvIVX(sv)); if (SvOOK(sv)) PerlIO_printf(file, " (OFFSET)"); -#ifdef PERL_COPY_ON_WRITE +#ifdef PERL_OLD_COPY_ON_WRITE if (SvIsCOW_shared_hash(sv)) PerlIO_printf(file, " (HASH)"); else if (SvIsCOW_normal(sv)) |