Parent Directory
| 
Revision Log
| 
Patch
| revision 561 by dpavlin, Sat Jan 2 17:45:31 2010 UTC | revision 562 by dpavlin, Tue Jul 19 12:11:17 2011 UTC | |
|---|---|---|
| # | Line 101 sub devices_up { | Line 101 sub devices_up { |
| 101 | } | } |
| 102 | ||
| 103 | sub default_route_dev { | sub default_route_dev { |
| 104 | my @routes = ip::lines 'route'; | return ( |
| return | ||
| 105 | map { $_->{dev} } | map { $_->{dev} } |
| 106 | grep { $_->{route} eq 'default' } | grep { $_->{route} eq 'default' } |
| 107 | splice @routes, 1 # FIXME ship header | grep { ref $_ eq 'HASH' } # skip header |
| 108 | ; | ip::lines 'route' |
| 109 | )[0]; | |
| 110 | } | } |
| 111 | ||
| 112 | sub to_int { | sub to_int { |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |