From 277abd754b4024a765293406434728f8ff26bc51 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 1 Mar 2006 13:31:06 +0000
Subject: add update_interfaces_list

---
 perl-install/network/shorewall.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/network/shorewall.pm b/perl-install/network/shorewall.pm
index 3f54729b8..e3bb9edb8 100644
--- a/perl-install/network/shorewall.pm
+++ b/perl-install/network/shorewall.pm
@@ -157,5 +157,9 @@ sub write {
     }
 }
 
-1;
+sub update_interfaces_list() {
+    my $shorewall = network::shorewall::read();
+    $shorewall && !$shorewall->{disabled} and network::shorewall::write($shorewall);
+}
 
+1;
-- 
cgit v1.2.1