commit | afcd6dfb5663f4d63966dbca37515b02567c6ff3 | [log] [tgz] |
---|---|---|
author | Lev Walkin <vlm@lionet.info> | Thu Sep 30 06:22:13 2004 +0000 |
committer | Lev Walkin <vlm@lionet.info> | Thu Sep 30 06:22:13 2004 +0000 |
tree | 086ac7cfebd1e08559d3caf7c0bbc05cf0631f17 | |
parent | d57723c48c5446737f11e3b02802ebdc84488db3 [diff] [blame] |
more robust parsing of module start sequence
diff --git a/examples/clyx2asn1.pl b/examples/clyx2asn1.pl index 83afbeb..77251bf 100755 --- a/examples/clyx2asn1.pl +++ b/examples/clyx2asn1.pl
@@ -38,11 +38,12 @@ 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}; } }