Changeset 766

Show
Ignore:
Timestamp:
03/09/07 21:14:26 (2 years ago)
Author:
hachi
Message:

split doesn't work for parsing /proc/partitions, use a full regex instead.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/filepaths-20070306/server/mogstored

    r765 r766  
    442442            <$partitions>; <$partitions>; # First two lines are for humans 
    443443            while (my $line = <$partitions>) { 
    444                 my ($major, $minor, undef, $devname) = split /\s+/, $line; 
     444                my ($major, $minor, $devname) = $line =~ 
     445                    m/^ \s* (\d+) \s+ (\d+) \s+ \d+ \s+ (\S+) \s* $/x; 
    445446                my $devno = ($major << 8) + $minor; 
    446447                $name_to_number{$devname} = $devno;