diff options
author | Lev Walkin <vlm@lionet.info> | 2014-10-12 19:01:17 -0700 |
---|---|---|
committer | Lev Walkin <vlm@lionet.info> | 2014-10-12 19:01:17 -0700 |
commit | 0b5f72f01fc3d33598117ad01d310f21e643e315 (patch) | |
tree | fac839f2c0ffcd10716b066b44e453e40e18d25c | |
parent | 108d4f93ca7845fda1cb981b378120fc6dfdb468 (diff) | |
parent | d9d36f8e41a8c514d712e3a6e6858e2c3b3a8884 (diff) |
Merge branch 'master' of https://github.com/wiml/asn1c into wiml-master
-rwxr-xr-x | examples/crfc2asn1.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/examples/crfc2asn1.pl b/examples/crfc2asn1.pl index aaf09200..0b086f62 100755 --- a/examples/crfc2asn1.pl +++ b/examples/crfc2asn1.pl @@ -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++) { $_ = <>; |