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>) {
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};
}
}
......
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