diff options
| author | Rick Delaney <rick@consumercontact.com> | 2007-10-07 18:37:01 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-08 08:43:32 +0000 |
| commit | e28bb1d52bee845e0aab3d253cd27698a545c674 (patch) | |
| tree | 65ff35fbfbe8432df01a5b04af589d3e519fd842 /pp.c | |
| parent | 2685328bf99c9543804a38fe9da569e53dcd123a (diff) | |
| download | perl-e28bb1d52bee845e0aab3d253cd27698a545c674.tar.gz | |
Re: [perl #46011] [RESOLVED] overload "0+" doesn't handle integer results
Message-ID: <20071008023701.GI29047@bort.ca>
p4raw-id: //depot/perl@32062
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2883,6 +2883,8 @@ PP(pp_int) while (SvAMAGIC(sv)) { SV *tsv = AMG_CALLun(sv,numer); + if (!tsv) + break; if (SvROK(tsv) && SvRV(tsv) == SvRV(sv)) { SETi(PTR2IV(SvRV(sv))); RETURN; |