more robust parsing of module start sequence

This commit is contained in:
Lev Walkin 2004-09-30 06:22:13 +00:00
parent d57723c48c
commit afcd6dfb56
1 changed files with 4 additions and 3 deletions

View File

@ -38,11 +38,12 @@ while(<STDIN>) {
print O "\n";
}
} else {
next unless $modules{$_};
open(O, '> '.$modules{$_});
/^([A-Za-z0-9-]+)(\s*{.*)?$/;
next unless $modules{$1};
open(O, '> '.$modules{$1});
print O;
$inmodule = 1;
delete $modules{$_};
delete $modules{$1};
}
}