Commit 8b27995d authored by Jonathon Duerig's avatar Jonathon Duerig
Browse files

Fix hash iteration on cleanup.

parent 5e35c36d
...@@ -2484,7 +2484,7 @@ sub GetTicketAuxAux($$$$$$$$$) ...@@ -2484,7 +2484,7 @@ sub GetTicketAuxAux($$$$$$$$$)
# #
# Clear any new vlan tag reservations we made during this call. # Clear any new vlan tag reservations we made during this call.
# #
foreach my $linkname (%vlan_reservations) { foreach my $linkname (keys(%vlan_reservations)) {
my ($lanid, $vlan_tag) = @{ $vlan_reservations{$linkname} }; my ($lanid, $vlan_tag) = @{ $vlan_reservations{$linkname} };
# If this is a new ticket, there is no lan object yet, # If this is a new ticket, there is no lan object yet,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment