summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-10-20 15:19:20 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2007-10-20 15:19:20 +0000
commitb9ee0594f2ab168a84a665a336cc190363728aef (patch)
tree95b6ad8ce2400ad61f141b3331a8bbb719416087 /sv.c
parentcc1c2e42fe4d1a61c9d2d0f948f8827f7373160a (diff)
downloadperl-b9ee0594f2ab168a84a665a336cc190363728aef.tar.gz
Revert code change from #32148
p4raw-id: //depot/perl@32150
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 25f14412aa..233f5cb029 100644
--- a/sv.c
+++ b/sv.c
@@ -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))))