fix default_route_dev

diff --git a/lib/PXElator/ip.pm b/lib/PXElator/ip.pm
index ae7204a..64d5b49 100644 (file)
--- a/lib/PXElator/ip.pm
+++ b/lib/PXElator/ip.pm
@@ -101,13 +101,12 @@ sub devices_up {
 }
 
 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 {

diff --git a/lib/PXElator/t/ip.t b/lib/PXElator/t/ip.t
index fd49820..ab070e0 100755 (executable)
--- a/lib/PXElator/t/ip.t
+++ b/lib/PXElator/t/ip.t
@@ -19,7 +19,7 @@ foreach my $object ( qw/link route/ ) {
 ok( my @devs = ip::devices_up(), 'devices_up' );
 diag dump( @devs );
 
-ok( ip::default_route_dev(), 'default_route_dev' );
+like( ip::default_route_dev(), qr/eth/, 'default_route_dev' );
 
 ok( my $int = ip::to_int( '127.0.0.1' ), 'to_int' );
 ok( my $ip  = ip::from_int( $int ), 'from_int' );