more robust parsing of module start sequence
git-svn-id: https://asn1c.svn.sourceforge.net/svnroot/asn1c/trunk@457 59561ff5-6e30-0410-9f3c-9617f08c8826
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};
}
}