aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLev Walkin <vlm@lionet.info>2014-10-12 19:01:17 -0700
committerLev Walkin <vlm@lionet.info>2014-10-12 19:01:17 -0700
commit0b5f72f01fc3d33598117ad01d310f21e643e315 (patch)
treefac839f2c0ffcd10716b066b44e453e40e18d25c
parent108d4f93ca7845fda1cb981b378120fc6dfdb468 (diff)
parentd9d36f8e41a8c514d712e3a6e6858e2c3b3a8884 (diff)
Merge branch 'master' of https://github.com/wiml/asn1c into wiml-master
-rwxr-xr-xexamples/crfc2asn1.pl3
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++) {
$_ = <>;