diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 03:28:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-28 03:28:39 +0000 |
| commit | f70c35af95b032bef7265d8d8029831a16708010 (patch) | |
| tree | 4a0b834cffc11f4d738930683793e0973c368390 /lib/bigfloat.pl | |
| parent | 1e4e2d84dee6a6634625ec755c8781353f441b00 (diff) | |
| download | perl-f70c35af95b032bef7265d8d8029831a16708010.tar.gz | |
more ebcdic testsuite fixups (from Peter Prymmer)
p4raw-id: //depot/perl@4723
Diffstat (limited to 'lib/bigfloat.pl')
| -rw-r--r-- | lib/bigfloat.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl index 6af5f17303..8c28abdcd1 100644 --- a/lib/bigfloat.pl +++ b/lib/bigfloat.pl @@ -79,7 +79,12 @@ sub norm { #(mantissa, exponent) return fnum_str sub main'fneg { #(fnum_str) return fnum_str local($_) = &'fnorm($_[$[]); vec($_,0,8) ^= ord('+') ^ ord('-') unless $_ eq '+0E+0'; # flip sign - s/^H/N/; + if ( ord("\t") == 9 ) { # ascii + s/^H/N/; + } + else { # ebcdic character set + s/\373/N/; + } $_; } |