From e96857cb51291f95ec5e6454576b177d8f721f54 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 12 Mar 2012 19:36:19 +0000 Subject: adapt to drakxtools-13.92+ API change which fixes mgaapplet crashing on major perl live upgrade, thus reducing the amount of resident memory used by net_applet by not loading so much useless perl modules (regression introduced when adding support for reading routes with kernel-2.6.38+) --- lib/network/tools.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'lib/network/tools.pm') diff --git a/lib/network/tools.pm b/lib/network/tools.pm index de8261d..04bd343 100644 --- a/lib/network/tools.pm +++ b/lib/network/tools.pm @@ -264,8 +264,7 @@ sub host_hex_to_dotted { sub get_routes() { my %routes; my @routes = cat_("/proc/net/route"); - require any; - @routes = reverse(@routes) if any::cmp_kernel_versions(c::kernel_version(), "2.6.39") >= 0; + @routes = reverse(@routes) if common::cmp_kernel_versions(c::kernel_version(), "2.6.39") >= 0; foreach (@routes) { if (/^(\S+)\s+([0-9A-F]+)\s+([0-9A-F]+)\s+[0-9A-F]+\s+\d+\s+\d+\s+(\d+)\s+([0-9A-F]+)/) { if (defined $3) { $routes{$1}{gateway} = hex($3) ? host_hex_to_dotted($3) : $routes{$1}{network} } -- cgit v1.2.1