Change 20660 by [EMAIL PROTECTED] on 2003/08/12 18:44:27
A better patch from Yitzchak Scott-Thoennes for [perl #23287].
Affected files ...
... //depot/perl/pp_sys.c#351 edit
Differences ...
==== //depot/perl/pp_sys.c#351 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#350~20653~ Tue Aug 12 06:15:17 2003
+++ perl/pp_sys.c Tue Aug 12 11:44:27 2003
@@ -860,8 +860,8 @@
if (SvTYPE(sv) == SVt_PVGV && !(sv = (SV *)GvIOp(sv)))
RETPUSHYES;
- if ((mg = SvTIED_mg(sv, how)) && mg->mg_obj) {
- SV *obj = SvRV(mg->mg_obj);
+ if ((mg = SvTIED_mg(sv, how))) {
+ SV *obj = SvRV(SvTIED_obj(sv, mg));
GV *gv;
CV *cv = NULL;
if (obj) {
End of Patch.
