| 402 |
|
sub make_xml() { |
| 403 |
|
my($curlevel, $curline) = @_; |
| 404 |
|
my($xmltemp) = ""; my($curtag) = ""; my($attributes) = ""; |
| 405 |
< |
while(true) { |
| 405 |
> |
while(1) { |
| 406 |
|
$curline = shift(@data) if $curline eq ""; chomp $curline; |
| 407 |
|
if($curline =~ /^$curlevel([^\.\s]+\.)/) { |
| 408 |
|
$curtag=$1; |
| 418 |
|
} |
| 419 |
|
my($nextline) = $data[0]; chomp $nextline if defined $nextline; |
| 420 |
|
$curtag =~ s/(.*)\./$1/; |
| 421 |
< |
if(defined $nextline && $nextline =~ /^$curlevel$curtag\./) { |
| 421 |
> |
if((defined $nextline) && ($nextline =~ /^$curlevel$curtag\./)) { |
| 422 |
|
$curline = ""; |
| 423 |
|
} |
| 424 |
|
else { |
