diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-21 16:42:48 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-05-21 13:00:13 +0000 |
| commit | ea86b3de3510ce31d0c08dd6a21701d74b25369d (patch) | |
| tree | 56337bb73a15af9c57b37d2e89fdaecc98cf3958 /mg.c | |
| parent | 72bfe1b2b35945ea3c95d9b94ae2908121292236 (diff) | |
| download | perl-ea86b3de3510ce31d0c08dd6a21701d74b25369d.tar.gz | |
Re: [perl #54566] assertion failure fiddling with @ISA
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0805210542l164caf85k86a34feae25ca9a7@mail.gmail.com>
p4raw-id: //depot/perl@33898
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1583,7 +1583,7 @@ Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg) stash = GvSTASH( SvTYPE(mg->mg_obj) == SVt_PVGV ? (GV*)mg->mg_obj - : (GV*)SvMAGIC(mg->mg_obj)->mg_obj + : (GV*)mg_find(mg->mg_obj, PERL_MAGIC_isa)->mg_obj ); if (stash) @@ -1609,7 +1609,7 @@ Perl_magic_clearisa(pTHX_ SV *sv, MAGIC *mg) stash = GvSTASH( SvTYPE(mg->mg_obj) == SVt_PVGV ? (GV*)mg->mg_obj - : (GV*)SvMAGIC(mg->mg_obj)->mg_obj + : (GV*)mg_find(mg->mg_obj, PERL_MAGIC_isa)->mg_obj ); if (stash) |