summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>1999-09-04 17:57:40 +0000
committerJarkko Hietaniemi <jhi@iki.fi>1999-09-04 17:57:40 +0000
commit34d861e4184d034166c726cda26ad14cdebb232e (patch)
tree068008da4048aaf198d3d2fdab4efd9711a51eac
parent05f13f530523fe7692b63a464a05e0fa1242462b (diff)
downloadperl-34d861e4184d034166c726cda26ad14cdebb232e.tar.gz
Warn about numconvert.t in case somebody
wants to make sv_2pv more 64-bit aware. p4raw-id: //depot/cfgperl@4074
-rw-r--r--sv.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 97f97f2db2..355ab9a841 100644
--- a/sv.c
+++ b/sv.c
@@ -1796,6 +1796,9 @@ Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
}
if (SvNOKp(sv)) { /* See note in sv_2uv() */
/* XXXX 64-bit? IV may have better precision... */
+ /* I tried changing this for to be 64-bit-aware and
+ * the t/op/numconvert.t became very, very, angry.
+ * --jhi Sep 1999 */
if (SvTYPE(sv) < SVt_PVNV)
sv_upgrade(sv, SVt_PVNV);
SvGROW(sv, 28);