diff options
| author | Lev Walkin <vlm@lionet.info> | 2004-09-30 06:22:13 +0000 |
|---|---|---|
| committer | Lev Walkin <vlm@lionet.info> | 2004-09-30 06:22:13 +0000 |
| commit | afcd6dfb5663f4d63966dbca37515b02567c6ff3 (patch) | |
| tree | 086ac7cfebd1e08559d3caf7c0bbc05cf0631f17 /examples | |
| parent | d57723c48c5446737f11e3b02802ebdc84488db3 (diff) | |
more robust parsing of module start sequence
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/clyx2asn1.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/clyx2asn1.pl b/examples/clyx2asn1.pl index 83afbeb4..77251bf8 100755 --- a/examples/clyx2asn1.pl +++ b/examples/clyx2asn1.pl @@ -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}; } } |