asn1enum.pl: Make compatible with modern perl

This fixes the following error message:
Experimental keys on scalar is now forbidden at ./asn1enum.pl line 25.

Change-Id: I4680627acfd8f3ed73d32324fe0a54b554268f3b
This commit is contained in:
Harald Welte 2019-09-19 11:42:13 +02:00 committed by laforge
parent 965d53348e
commit 175cc0f710
1 changed files with 1 additions and 1 deletions

View File

@ -22,7 +22,7 @@ foreach my $k (keys %h) {
next;
}
printf("%s ::= INTEGER {\n", $k);
foreach my $r (sort { $a <=> $b } keys $h{$k}) {
foreach my $r (sort { $a <=> $b } keys %{$h{$k}}) {
printf("\t%s(%d),\n", $h{$k}{$r}, $r);
}
printf("}\n");