summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakgw5
1 files changed, 3 insertions, 2 deletions
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 () {