From e15e0504801a3b394b02d0f671eceef5f0de1e8a Mon Sep 17 00:00:00 2001 From: Miod Vallat Date: Sat, 13 Jul 2013 10:21:55 +0000 Subject: In Perl_upg_version(), do not compare double against 10e50 on vax, for this value can not be represented by a double (unless compiling with -mg); instead, use a lower limit value. This does not impact the behaviour since both sides of the test are supposed to produce the same result, albeit in different ways. ok millert@ espie@ --- gnu/usr.bin/perl/util.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gnu') diff --git a/gnu/usr.bin/perl/util.c b/gnu/usr.bin/perl/util.c index 34f5fa90582..613b3eb16ae 100644 --- a/gnu/usr.bin/perl/util.c +++ b/gnu/usr.bin/perl/util.c @@ -4962,7 +4962,11 @@ Perl_upg_version(pTHX_ SV *ver, bool qv) /* may get too much accuracy */ char tbuf[64]; +#ifdef __vax__ + SV *sv = SvNVX(ver) > 10e37 ? newSV(64) : 0; +#else SV *sv = SvNVX(ver) > 10e50 ? newSV(64) : 0; +#endif char *buf; #ifdef USE_LOCALE_NUMERIC char *loc = savepv(setlocale(LC_NUMERIC, NULL)); -- cgit v1.2.3