Change 34623 by [EMAIL PROTECTED] on 2008/10/28 20:13:13
A gaggle of casts in Perl_sv_magicext() that are (const ?V *).
Affected files ...
... //depot/perl/sv.c#1560 edit
Differences ...
==== //depot/perl/sv.c#1560 (text) ====
Index: perl/sv.c
--- perl/sv.c#1559~34585~ 2008-10-25 05:23:01.000000000 -0700
+++ perl/sv.c 2008-10-28 13:13:13.000000000 -0700
@@ -4714,9 +4714,9 @@
how == PERL_MAGIC_arylen ||
how == PERL_MAGIC_symtab ||
(SvTYPE(obj) == SVt_PVGV &&
- (GvSV(obj) == sv || GvHV(obj) == (HV*)sv || GvAV(obj) == (AV*)sv ||
- GvCV(obj) == (CV*)sv || GvIOp(obj) == (IO*)sv ||
- GvFORM(obj) == (CV*)sv)))
+ (GvSV(obj) == sv || GvHV(obj) == (const HV *)sv
+ || GvAV(obj) == (const AV *)sv || GvCV(obj) == (const CV *)sv
+ || GvIOp(obj) == (const IO *)sv || GvFORM(obj) == (const CV *)sv)))
{
mg->mg_obj = obj;
}
End of Patch.
