summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-07-30 02:31:49 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-07-30 02:31:49 +0000
commit57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de (patch)
tree96e442241253ac57f6c06d32dc4f2113f984d53f /perl-install/standalone
parent2fee59643be4d8f962f970a7dd7988ab9b8dd1f4 (diff)
downloaddrakx-backup-do-not-use-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar
drakx-backup-do-not-use-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar.gz
drakx-backup-do-not-use-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar.bz2
drakx-backup-do-not-use-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar.xz
drakx-backup-do-not-use-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.zip
(outpend) clean by reusing MDK::Common
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 () {