$NetBSD: patch-aa,v 1.1 2008/09/13 15:25:25 he Exp $

--- t/iflist.t.orig	2007-04-03 12:59:40.000000000 +0200
+++ t/iflist.t
@@ -27,10 +27,10 @@ $SIG{__WARN__} = 'DEFAULT';
 
 {
     my $list = ifaddrlist;
-    is( ref($list), 'HASH', 'ifaddrlist retursn HASH ref');
+    is( ref($list), 'HASH', 'ifaddrlist returns HASH ref');
 
-    ok(exists $list->{lo}, 'lo interface exists');
-    is($list->{lo}, '127.0.0.1', 'lo interface is 127.0.0.1');
+    ok(exists $list->{lo0}, 'lo0 interface exists');
+    is($list->{lo0}, '127.0.0.1', 'lo0 interface is 127.0.0.1');
 
     # on my Linux machine this is 
     # lo -> 127.0.0.1
@@ -42,8 +42,8 @@ $SIG{__WARN__} = 'DEFAULT';
 }
 
 {
-    is(rdev('127.0.0.1'), 'lo', 'rdev 127.0.0.1');
-    is(rdev('localhost'), 'lo', 'rdev localhost');
+    is(rdev('127.0.0.1'), 'lo0', 'rdev 127.0.0.1');
+    is(rdev('localhost'), 'lo0', 'rdev localhost');
     eval {
         rdev('ab cd');
     };
