diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-24 16:23:11 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2014-09-26 17:04:52 -0400 |
| commit | a308b05acde5d644385536b0b51b622a5d7c0dae (patch) | |
| tree | 4b53b019501bec7bc6a7c555db6737555608b3dd /ext/ExtUtils-Miniperl | |
| parent | 877206dfe0caef9a95cc20c69822774122a32361 (diff) | |
| download | perl-a308b05acde5d644385536b0b51b622a5d7c0dae.tar.gz | |
Tru64: introduce PERL_SYS_FPU_INIT, use it.
In Tru64 the cc -ieee enables the IEEE math but disables traps.
We need to reenable the "invalid" trap because otherwise generation
of NaN values leaves the IEEE fp flags in bad state, leaving any further
fp ops behaving strangely (Inf + 1 resulting in zero, for example).
Diffstat (limited to 'ext/ExtUtils-Miniperl')
| -rw-r--r-- | ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm index 99276fc4c7..5cf6252918 100644 --- a/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm +++ b/ext/ExtUtils-Miniperl/lib/ExtUtils/Miniperl.pm @@ -8,7 +8,7 @@ use vars qw($VERSION @ISA @EXPORT); @ISA = qw(Exporter); @EXPORT = qw(writemain); -$VERSION = '1.02'; +$VERSION = '1.03'; # blead will run this with miniperl, hence we can't use autodie or File::Temp my $temp; @@ -136,6 +136,8 @@ main(int argc, char **argv, char **env) Perl_atfork_unlock); #endif + PERL_SYS_FPU_INIT; + if (!PL_do_undump) { my_perl = perl_alloc(); if (!my_perl) |