diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2001-12-19 01:45:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-19 01:14:04 +0000 |
| commit | 9e3013b16364a48eba51a8b57383bf45e1c4c0e4 (patch) | |
| tree | 852c4f29c07859b6360a97bbeac9c10c2fdc157e | |
| parent | 058eaa425d59becab3e9c03e8b8291dc8707c468 (diff) | |
| download | perl-9e3013b16364a48eba51a8b57383bf45e1c4c0e4.tar.gz | |
Re: [ID 20011213.001] Segfault with overload and Test
Message-Id: <200112190145.fBJ1jNt23668@crypt.compulink.co.uk>
p4raw-id: //depot/perl@13786
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3235,7 +3235,7 @@ Perl_sv_2bool(pTHX_ register SV *sv) 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; } |