[14] in linux-scsi channel archive
Re: NCR57,8xx driver
daemon@ATHENA.MIT.EDU (Caleb Epstein)
Tue Jan 17 08:58:02 1995
From: Caleb Epstein <epstein_caleb@jpmorgan.com>
Date: Tue, 17 Jan 1995 08:16:29 -0500
To: Hildo@consul.nl
Cc: linux-scsi@vger.rutgers.edu
In-Reply-To: <"95-01-17-08:23:17.98*CRMBIER"@HDETUD2.TUDELFT.NL> (Hildo@consul.nl)
>>>>> "Hildo" == Hildo <Hildo@consul.nl> writes:
Hildo> Hi all, The Linux NCR 57,8xx SCSI driver uses perl during
Hildo> kernel compilation. The problem is, it expects perl4, and
Hildo> fails to work on perl5. (And yes, I am using perl5.000,
Hildo> not an alpha/beta perl5.)
Hildo> Now, I don't know enough perl to fix this myself; could
Hildo> perhaps someone in the know try out perl5, and maybe fix
Hildo> the problem?
I got the following error when I tried it:
Modification of a read-only value attempted at script_asm.pl line 283, <STDIN> line 373.
There are also a lot of messages that look like this:
fake.c:55: unterminated character constant
fake.c:70: unterminated character constant
fake.c:192: unterminated character constant
but I am guessing that this is normal. Enclosed is a patch to the
perl script that seems to work for me. Give it a try,
--
[ epstein_caleb@jpmorgan.com | Caleb Epstein | JP Morgan & Co. Incorporated ]
--- drivers/scsi/script_asm.pl~ Fri Aug 19 01:54:05 1994
+++ drivers/scsi/script_asm.pl Tue Jan 17 08:12:32 1995
@@ -280,11 +280,11 @@
$conditional = $1;
print STDERR "$0 : parsed ATN\n" if ($debug);
} elsif ($conditional =~ /^($phase)\s*(.*)/i) {
- $1 = "\U$1\E";
- $p = $scsi_phases{$1};
+ $phase_index = "\U$1\E";
+ $p = $scsi_phases{$phase_index};
$code[$address] |= $p | 0x00_02_00_00;
$conditional = $2;
- print STDERR "$0 : parsed phase $1\n" if ($debug);
+ print STDERR "$0 : parsed phase $phase_index\n" if ($debug);
} else {
$other = '';
$need_data = 1;
