From: sof <unknown>
Date: Tue, 25 Sep 2001 20:16:19 +0000 (+0000)
Subject: [project @ 2001-09-25 20:16:19 by sof]
X-Git-Tag: Approximately_9120_patches~914
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7a7676995ce9139dd62bf4b53023cf3a2c4b7b21;p=ghc-hetmet.git

[project @ 2001-09-25 20:16:19 by sof]
Stick with trad. function syntax in prev commit; avoids unnecessary Perl versioning issues
---

diff --git a/ghc/driver/mangler/ghc-asm.lprl b/ghc/driver/mangler/ghc-asm.lprl
index 446ab45..ca26221 100644
--- a/ghc/driver/mangler/ghc-asm.lprl
+++ b/ghc/driver/mangler/ghc-asm.lprl
@@ -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;