From 238f2e7ed6e84205f627a51f4701a302c8b388bc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 27 Sep 2005 13:27:17 +0000 Subject: cleanup --- MDK/Common/System.pm | 5 +---- 1 file changed, 1 insertion(+), 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); } -- cgit v1.2.1