diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-02-04 22:50:33 +0000 |
| commit | e334a159a5616cab575044bafaf68f75b7bb3a16 (patch) | |
| tree | 47369293eb7417e5322f7fe46e1a1cfc0d9c69ef /lib/bigfloat.pl | |
| parent | 514dae0dba791ec01681adb3b3946a7646e146b3 (diff) | |
| download | perl-e334a159a5616cab575044bafaf68f75b7bb3a16.tar.gz | |
perl 4.0 patch 36: (combined patch)perl-4.0.36
Since Ed Barton sent me a patch for the malignent form of "Malformed
cmd links", I finally broke down and made a patch for the various
other little things that have been accumulating on version 4.
Diffstat (limited to 'lib/bigfloat.pl')
| -rw-r--r-- | lib/bigfloat.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/bigfloat.pl b/lib/bigfloat.pl index 52fb7e3880..278f11d815 100644 --- a/lib/bigfloat.pl +++ b/lib/bigfloat.pl @@ -67,7 +67,7 @@ sub norm { #(mantissa, exponent) return fnum_str # negation sub main'fneg { #(fnum_str) return fnum_str local($_) = &'fnorm($_[0]); - vec($_,0,8) =^ ord('+') ^ ord('-') unless $_ eq '+0E+0'; # flip sign + vec($_,0,8) ^= ord('+') ^ ord('-') unless $_ eq '+0E+0'; # flip sign s/^H/N/; $_; } |