diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-20 15:19:20 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-20 15:19:20 +0000 |
commit | b9ee0594f2ab168a84a665a336cc190363728aef (patch) | |
tree | 95b6ad8ce2400ad61f141b3331a8bbb719416087 /sv.c | |
parent | cc1c2e42fe4d1a61c9d2d0f948f8827f7373160a (diff) | |
download | perl-b9ee0594f2ab168a84a665a336cc190363728aef.tar.gz |
Revert code change from #32148
p4raw-id: //depot/perl@32150
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -2514,6 +2514,8 @@ access this function. SV * Perl_sv_2num(pTHX_ register SV *sv) { + if (!SvROK(sv)) + return sv; if (SvAMAGIC(sv)) { SV * const tmpsv = AMG_CALLun(sv,numer); if (tmpsv && (!SvROK(tmpsv) || (SvRV(tmpsv) != SvRV(sv)))) |