From 175cc0f7105ee9728397b3dbd26c31afad485317 Mon Sep 17 00:00:00 2001
From: Harald Welte <laforge@gnumonks.org>
Date: Thu, 19 Sep 2019 11:42:13 +0200
Subject: 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
---
 asn1/asn1enum.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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");
-- 
cgit v1.2.3