574850ba3d
Copy from home:mlschroe:branches:openSUSE:Factory/perl based on submit request 20123 from user mlschroe OBS-URL: https://build.opensuse.org/request/show/20123 OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=32
12 lines
409 B
Diff
12 lines
409 B
Diff
--- ./mg.c.orig 2009-09-08 10:41:20.000000000 +0000
|
|
+++ ./mg.c 2009-09-08 10:43:29.000000000 +0000
|
|
@@ -1543,7 +1543,7 @@ Perl_magic_setisa(pTHX_ SV *sv, MAGIC *m
|
|
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
|
|
);
|
|
|
|
mro_isa_changed_in(stash);
|