Commit afcd6dfb authored by Lev Walkin's avatar Lev Walkin

more robust parsing of module start sequence

parent d57723c4
...@@ -38,11 +38,12 @@ while(<STDIN>) { ...@@ -38,11 +38,12 @@ while(<STDIN>) {
print O "\n"; print O "\n";
} }
} else { } else {
next unless $modules{$_}; /^([A-Za-z0-9-]+)(\s*{.*)?$/;
open(O, '> '.$modules{$_}); next unless $modules{$1};
open(O, '> '.$modules{$1});
print O; print O;
$inmodule = 1; $inmodule = 1;
delete $modules{$_}; delete $modules{$1};
} }
} }
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment