diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-27 13:27:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-27 13:27:17 +0000 |
| commit | 238f2e7ed6e84205f627a51f4701a302c8b388bc (patch) | |
| tree | 100fc1095bb2298428726b8d33ac0a364f02eecd | |
| parent | ad148fe0a23c45d94bc8e7611260d7ff59b8596c (diff) | |
| download | perl-MDK-Common-238f2e7ed6e84205f627a51f4701a302c8b388bc.tar perl-MDK-Common-238f2e7ed6e84205f627a51f4701a302c8b388bc.tar.gz perl-MDK-Common-238f2e7ed6e84205f627a51f4701a302c8b388bc.tar.bz2 perl-MDK-Common-238f2e7ed6e84205f627a51f4701a302c8b388bc.tar.xz perl-MDK-Common-238f2e7ed6e84205f627a51f4701a302c8b388bc.zip | |
cleanup
| -rw-r--r-- | MDK/Common/System.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/MDK/Common/System.pm b/MDK/Common/System.pm index 720687c..31ab365 100644 --- a/MDK/Common/System.pm +++ b/MDK/Common/System.pm @@ -438,9 +438,6 @@ sub update_gnomekderc { my %subst = map { lc($_) => [ $_, $subst_{$_} ] } keys %subst_; my $s; - # create the parent directory for the config file, if needed - my $directory = MDK::Common::File::dirname($file); - MDK::Common::File::mkdir_p($directory) if ! -r $directory; defined($category) or $category = "DEFAULTCATEGORY"; foreach ("[DEFAULTCATEGORY]\n", MDK::Common::File::cat_($file), "[NOCATEGORY]\n") { if (my $i = /^\s*\[\Q$category\E\]/i ... /^\[/) { @@ -464,7 +461,7 @@ sub update_gnomekderc { $s .= "$_->[0]=$_->[1]\n" foreach values %subst; } - MDK::Common::File::output($file, $s); + MDK::Common::File::output_p($file, $s); } |