}
sub default_route_dev {
- my @routes = ip::lines 'route';
-
- return
+ return (
map { $_->{dev} }
grep { $_->{route} eq 'default' }
- splice @routes, 1 # FIXME ship header
- ;
+ grep { ref $_ eq 'HASH' } # skip header
+ ip::lines 'route'
+ )[0];
}
sub to_int {