diff options
| author | Harald Welte <laforge@gnumonks.org> | 2019-09-19 11:42:13 +0200 |
|---|---|---|
| committer | laforge <laforge@gnumonks.org> | 2019-09-20 22:10:50 +0000 |
| commit | 175cc0f7105ee9728397b3dbd26c31afad485317 (patch) | |
| tree | 5020bc02330671842eb620bab91a3c033cd36146 | |
| parent | 965d53348ec5275ef72b3ac2e6e43521a3c93391 (diff) | |
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
| -rwxr-xr-x | asn1/asn1enum.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asn1/asn1enum.pl b/asn1/asn1enum.pl index 8584e84..beac35f 100755 --- a/asn1/asn1enum.pl +++ b/asn1/asn1enum.pl @@ -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"); |