Do not attempt to even dump non-standard multirecord fields, they may not comply with spec

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11091 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-11-30 21:02:08 +00:00
parent 7633449ab2
commit 3093ecc3e5

View File

@ -2310,12 +2310,15 @@ sub parsefru {
my $last=0;
$curridx=$bytes->[5]*8;
my $currsize;
while (not $last) {
if ($bytes->[$curridx+1] & 128) {
$last=1;
}
$currsize=$bytes->[$curridx+2];
push @{$fruhash->{extra}},$bytes->[$curridx..$curridx+4+$currsize-1];
if ($bytes->[$curridx] <= 5) { #don't even try to parse unknown stuff
#some records don't comply to any SPEC
while (not $last) {
if ($bytes->[$curridx+1] & 128) {
$last=1;
}
$currsize=$bytes->[$curridx+2];
push @{$fruhash->{extra}},$bytes->[$curridx..$curridx+4+$currsize-1];
}
}
}
return 0,$fruhash;