Include the module name in the extracted ASN.1 file.

This commit is contained in:
Wim Lewis 2014-03-12 13:52:08 -07:00
parent b40ec41655
commit d9d36f8e41
1 changed files with 2 additions and 1 deletions

View File

@ -44,14 +44,15 @@ while(<>) {
$inasn = 1;
} elsif(/^[ \t]*([A-Z][A-Za-z0-9-]*).*{[ \t]*iso/
|| /^[ \t]*{[ \t]*iso/) {
my @a = ($_);
$modName = $1;
unless(length($modName)) {
next unless $prevLine =~
/^[ \t]*([A-Z][A-Za-z0-9-]*)[ \t]*$/;
$modName = $1;
unshift(@a, $prevLine);
}
$currentFname = $rfcid . $modName . ".asn1";
my @a = ($_);
my $i;
for($i = 0; $i < 8; $i++) {
$_ = <>;