diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-30 02:31:49 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-30 02:31:49 +0000 |
| commit | 57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de (patch) | |
| tree | 96e442241253ac57f6c06d32dc4f2113f984d53f /perl-install/standalone | |
| parent | 2fee59643be4d8f962f970a7dd7988ab9b8dd1f4 (diff) | |
| download | drakx-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar drakx-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar.gz drakx-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar.bz2 drakx-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.tar.xz drakx-57bd60c5e48fe92c44f8f2f7ddec3a3cc65610de.zip | |
(outpend) clean by reusing MDK::Common
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakgw | 5 |
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 () { |