diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-03-15 15:08:49 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-03-15 15:08:49 +0000 |
| commit | dd2eae666980a8d8bd145f2f6cc632a45513f9ce (patch) | |
| tree | 673f08c186f18bc96c78a7e03ff697591094b1d6 /dump.c | |
| parent | b1fbf5c3d1dc6dd7934002da04dede2ae2e3ef65 (diff) | |
| download | perl-dd2eae666980a8d8bd145f2f6cc632a45513f9ce.tar.gz | |
Moving the overloading flag from the reference to the referant allows
(re)?blessing of overloaded objects to work correctly.
p4raw-id: //depot/perl@27506
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1196,8 +1196,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo if (flags & SVf_FAKE) sv_catpv(d, "FAKE,"); if (flags & SVf_READONLY) sv_catpv(d, "READONLY,"); - if (flags & SVf_AMAGIC && type != SVt_PVHV) - sv_catpv(d, "OVERLOAD,"); + if (flags & SVf_AMAGIC) sv_catpv(d, "OVERLOAD,"); if (flags & SVp_IOK) sv_catpv(d, "pIOK,"); if (flags & SVp_NOK) sv_catpv(d, "pNOK,"); if (flags & SVp_POK) sv_catpv(d, "pPOK,"); |