From 8c7c8f9e1497f80cbe9bbdc1bf0b8552b7dd88cb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Sep 2001 18:35:07 +0000
Subject: use new mkdir_p, rm_rf and cp_af from MDK::Common

---
 perl-install/tinyfirewall.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'perl-install/tinyfirewall.pm')

diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index 014495c07..32a745094 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -1,7 +1,6 @@
 package tinyfirewall;
 use diagnostics;
 use strict;
-use commands;
 use run_program;
 use network::netconnect;
 use network;
@@ -74,7 +73,7 @@ my %settings;
 my $config_file = "/etc/Bastille/bastille-firewall.cfg";
 my $default_config_file = "/usr/share/Bastille/bastille-firewall.cfg"; # set this later
 sub ReadConfig {
-    -e $config_file or commands::cp($default_config_file, $config_file);
+    -e $config_file or cp_af($default_config_file, $config_file);
     add2hash(\%settings, { getVarsFromSh("$config_file") });
 }
 sub SaveConfig {
@@ -156,7 +155,7 @@ sub DoInterface {
 	$in->exit(0);
 	return;
 	$_[0] or $in->exit(0);
-	commands::cp("-f", $config_file, $config_file . ".orig");
+	cp_af($config_file, $config_file . ".orig");
 	substInFile {
 	    if(/^(.+)\s*\=/) {
 		$a=$settings{$1};
-- 
cgit v1.2.1