diff options
| author | Andrew Fresh <afresh1@cvs.openbsd.org> | 2017-08-14 13:49:46 +0000 |
|---|---|---|
| committer | Andrew Fresh <afresh1@cvs.openbsd.org> | 2017-08-14 13:49:46 +0000 |
| commit | 81b2e4c724694260463643e2a2196ae9968dfff3 (patch) | |
| tree | 8f2d26c1ade3041d2b22210f4fa72b3b0dda04b4 /gnu/usr.bin/perl/vutil.c | |
| parent | f3b8651cb2718ae35d05fd07055d33e661008c25 (diff) | |
Apply local patches - perl-5.24.2
OK bluhm@, Reads ok sthen@
Diffstat (limited to 'gnu/usr.bin/perl/vutil.c')
| -rw-r--r-- | gnu/usr.bin/perl/vutil.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/vutil.c b/gnu/usr.bin/perl/vutil.c index 610c03c4463..de3367e7dca 100644 --- a/gnu/usr.bin/perl/vutil.c +++ b/gnu/usr.bin/perl/vutil.c @@ -609,7 +609,11 @@ VER_NV: /* 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; #if PERL_VERSION_GE(5,19,0) |