From dd2eae666980a8d8bd145f2f6cc632a45513f9ce Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Wed, 15 Mar 2006 15:08:49 +0000 Subject: Moving the overloading flag from the reference to the referant allows (re)?blessing of overloaded objects to work correctly. p4raw-id: //depot/perl@27506 --- dump.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'dump.c') diff --git a/dump.c b/dump.c index 650c1ab53a..8d4f063c9b 100644 --- a/dump.c +++ b/dump.c @@ -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,"); -- cgit v1.2.1