From 082c64e00c6d8240ba1323dcfaee7d4e9b9ba48e Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@hyperic.com>
Date: Tue, 6 Dec 2005 17:15:07 +0000
Subject: [PATCH] use ifconfig->type

---
 bindings/perl/examples/ifconfig.pl | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/bindings/perl/examples/ifconfig.pl b/bindings/perl/examples/ifconfig.pl
index bd94362b..35a87f04 100755
--- a/bindings/perl/examples/ifconfig.pl
+++ b/bindings/perl/examples/ifconfig.pl
@@ -11,8 +11,7 @@ for my $ifname (@$iflist) {
     my $ifconfig = $sigar->net_interface_config($ifname);
     my $flags = $ifconfig->flags;
 
-    my $encap = ($flags & Sigar::IFF_LOOPBACK) ?
-      "Local Loopback" : "Ethernet";
+    my $encap = $ifconfig->type;
 
     my $hwaddr = $ifconfig->hwaddr;
     if ($hwaddr eq Sigar::NULL_HWADDR) {