#
# This library is no longer being maintained, and is included for backward
# compatibility with Perl 4 programs which may require it.
+# This legacy library is deprecated and will be removed in a future
+# release of perl.
#
# In particular, this should not be used as an example of modern Perl
# programming techniques.
#
# Suggested alternative: Math::BigFloat
-#
+
+warn( "The 'bigfloat.pl' legacy library is deprecated and will be"
+ . " removed in the next major release of perl. Please use the"
+ . " Math::BigFloat module instead." );
+
# Arbitrary length float math package
#
# by Mark Biggar
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/;
+ }
$_;
}