print "# Switch ports:\n", Dumper($port_table) if $debug;
for my $port (keys %$port_table) {
- my $if = $if_table->{$port_table->{$port}->{ifindex}} or die "Port table refers to unknown iface";
+ my $ifi = $port_table->{$port}->{ifindex};
+ my $if = $if_table->{$ifi};
+ if (!$if) {
+ print STDERR "WARNING: Port $port refers to unknown ifindex $ifi\n";
+ next;
+ }
$if->{switch_port} = $port;
}