From 57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 30 Jul 2004 02:31:49 +0000 Subject: (outpend) clean by reusing MDK::Common --- perl-install/standalone/drakgw | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakgw') diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index 00e700a02..bfcdfeedc 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -62,8 +62,9 @@ $in->isa('interactive::gtk') and $::isWizard = 1; sub sys { system(@_) == 0 or log::l("[drakgw] Warning, sys failed for $_[0]") } sub outpend { - log::explanations("modified file $_[0]"); - my $f = shift; local *F; open F, ">>$f" or die "outpend in file $f failed: $!\n"; print F foreach @_; + my $f = shift; + log::explanations("modified file $f"); + append_to_file($f, @_); } sub start_daemons () { -- cgit v1.2.1