Commit 7a767699 authored by sof's avatar sof
Browse files

[project @ 2001-09-25 20:16:19 by sof]

Stick with trad. function syntax in prev commit; avoids unnecessary Perl versioning issues
parent 31285afe
......@@ -1443,7 +1443,7 @@ sub rev_tbl {
local ($sign, $base, $digits) = ($1, $2, $3);
$base = (10, 8, 16)[length $base];
local ($hi, $lo) = (0, 0);
foreach $i (split //, $digits) {
foreach $i (split(//, $digits)) {
$j = $lo * $base + $i;
$lo = $j % 4294967296;
$hi = $hi * $base + ($j - $lo) / 4294967296;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment