Allow more than one whitespace after DG/VD

This commit is contained in:
Georg Schönberger
2022-03-31 19:45:32 +02:00
parent 23acd048e0
commit a983b1fb10

View File

@ -391,7 +391,7 @@ sub getLogicalDevices{
next;
}
if(defined($currBlock)){
if($line =~ /^DG\/VD TYPE.*/){
if($line =~ /^DG\/VD[[:blank:]]+TYPE.*/){
@splittedLine = split(' ', $line);
if(scalar(@splittedLine)== 9){
$LDMAP = \@map_a;