diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1998-08-01 15:03:02 +0300 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 05:20:12 +0000 |
| commit | 9d116dd7c895b17badf4ad422ae44da0c4df7bc2 (patch) | |
| tree | 6e0cd77e3539952c892983238473264f672472b9 /lib/bigint.pl | |
| parent | e6df7ed16ebd06f5315f3016c00996876580109c (diff) | |
| download | perl-9d116dd7c895b17badf4ad422ae44da0c4df7bc2.tar.gz | |
support OE/MVS
Message-Id: <199808010903.MAA09371@alpha.hut.fi>
Subject: [PATCH] 5.005_01: OE MVS
p4raw-id: //depot/maint-5.005/perl@1697
Diffstat (limited to 'lib/bigint.pl')
| -rw-r--r-- | lib/bigint.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/bigint.pl b/lib/bigint.pl index bfd2efa88c..adeb17f28a 100644 --- a/lib/bigint.pl +++ b/lib/bigint.pl @@ -74,7 +74,7 @@ sub external { #(int_num_array) return num_str sub main'bneg { #(num_str) return num_str local($_) = &'bnorm(@_); vec($_,0,8) ^= ord('+') ^ ord('-') unless $_ eq '+0'; - s/^H/N/; + s/^./N/ unless /^[-+]/; # works both in ASCII and EBCDIC $_; } |