Change 13786 by jhi@alpha on 2001/12/19 01:14:04
Subject: Re: [ID 20011213.001] Segfault with overload and Test
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 19 Dec 2001 01:45:23 +0000
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/sv.c#500 edit
Differences ...
==== //depot/perl/sv.c#500 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Tue Dec 18 18:30:06 2001
+++ perl/sv.c Tue Dec 18 18:30:06 2001
@@ -3235,7 +3235,7 @@
if (SvROK(sv)) {
SV* tmpsv;
if (SvAMAGIC(sv) && (tmpsv=AMG_CALLun(sv,bool_)) &&
- (SvTYPE(tmpsv) != SVt_RV || (SvRV(tmpsv) != SvRV(sv))))
+ (!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv))))
return SvTRUE(tmpsv);
return SvRV(sv) != 0;
}
End of Patch.
