>>>>> On Wed, 12 Jun 2002 13:47:32 -0400, Paul Lussier <[EMAIL PROTECTED]> said:
> In Fai.pm, the following code segment exists:
> sub read_disk_info {
> while ($ENV{device_size}=~ /(\S+)\s+(\d+)/g) {
> This code is called from class/S07disk.pl as:
> read_disk_info();
> When called, there is nothing passed to it, so there is no $_
> for the 'while' look to operate on, therefore $ENV{device_size}
$device_size is a global variable that is set by the shell routine
diskandsize. So no $_ is needed in perl (RTF Perl M). If it does not
work debug your installation process setting "set -xv" in rcS_fai
(much, much output).
I think you missunderstood the Perl code, but if this is really a bug,
mail again.
Gruss Thomas
