Change 30195 by [EMAIL PROTECTED] on 2007/02/10 18:51:31
These casts to GV are no longer needed.
Affected files ...
... //depot/perl/pp.c#579 edit
Differences ...
==== //depot/perl/pp.c#579 (text) ====
Index: perl/pp.c
--- perl/pp.c#578~29977~ 2007-01-25 12:57:56.000000000 -0800
+++ perl/pp.c 2007-02-10 10:51:31.000000000 -0800
@@ -251,17 +251,17 @@
if ((PL_op->op_flags & OPf_SPECIAL) &&
!(PL_op->op_flags & OPf_MOD))
{
- gv = (GV*)gv_fetchsv(sv, 0, type);
+ gv = gv_fetchsv(sv, 0, type);
if (!gv
&& (!is_gv_magical_sv(sv,0)
- || !(gv = (GV*)gv_fetchsv(sv, GV_ADD, type))))
+ || !(gv = gv_fetchsv(sv, GV_ADD, type))))
{
**spp = &PL_sv_undef;
return NULL;
}
}
else {
- gv = (GV*)gv_fetchsv(sv, GV_ADD, type);
+ gv = gv_fetchsv(sv, GV_ADD, type);
}
return gv;
}
End of Patch.
