From 7a7676995ce9139dd62bf4b53023cf3a2c4b7b21 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 25 Sep 2001 20:16:19 +0000
Subject: [PATCH] [project @ 2001-09-25 20:16:19 by sof] Stick with trad.
 function syntax in prev commit; avoids unnecessary Perl
 versioning issues

---
 ghc/driver/mangler/ghc-asm.lprl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
1.7.10.4