diff options
author | Michael Cummings <mcummings@gentoo.org> | 2006-09-06 14:39:34 +0000 |
---|---|---|
committer | Michael Cummings <mcummings@gentoo.org> | 2006-09-06 14:39:34 +0000 |
commit | ac2afba644da3ebeb97140a505ebda3a5b5791c5 (patch) | |
tree | ebd6d545233bf46384af2c896acd40a1173f3212 /app-misc/filer/files | |
parent | Bump for a bug in how File-MimeInfo handles utf8 in weird circumstances. File... (diff) | |
download | gentoo-2-ac2afba644da3ebeb97140a505ebda3a5b5791c5.tar.gz gentoo-2-ac2afba644da3ebeb97140a505ebda3a5b5791c5.tar.bz2 gentoo-2-ac2afba644da3ebeb97140a505ebda3a5b5791c5.zip |
Patch for deleting dirs, worked with Jens (author) on this, closes bug 126514.
(Portage version: 2.1.1_rc1-r3)
Diffstat (limited to 'app-misc/filer/files')
-rw-r--r-- | app-misc/filer/files/filer-0.0.12-trash.patch | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/app-misc/filer/files/filer-0.0.12-trash.patch b/app-misc/filer/files/filer-0.0.12-trash.patch new file mode 100644 index 000000000000..655427f1d638 --- /dev/null +++ b/app-misc/filer/files/filer-0.0.12-trash.patch @@ -0,0 +1,49 @@ +diff -Naurp filer-0.0.12/Filer/Config.pm filer-0.0.12.new/Filer/Config.pm +--- filer-0.0.12/Filer/Config.pm 2005-07-03 14:48:23.000000000 -0400 ++++ filer-0.0.12.new/Filer/Config.pm 2006-09-06 10:28:03.000000000 -0400 +@@ -22,7 +22,15 @@ use warnings; + sub new { + my ($class,$side) = @_; + my $self = bless {}, $class; +- $self->{cfg_home} = (new File::BaseDir)->xdg_config_home . "/filer"; ++ ++ my $xdg_config_home = File::BaseDir::xdg_config_home; ++ my $xdg_data_home = File::BaseDir::xdg_data_home; ++ ++ $self->{cfg_home} = "$xdg_config_home/filer"; ++ ++ if (! -e $xdg_config_home) { ++ mkdir($xdg_config_home); ++ } + + # move old config directory if it exists: + if (-e "$ENV{HOME}/.filer/") { +@@ -30,14 +38,24 @@ sub new { + rename("$ENV{HOME}/.filer", $self->{cfg_home}); + } + +- if (! -e File::BaseDir::xdg_config_home) { +- mkdir(File::BaseDir::xdg_config_home); +- } +- + if (! -e $self->{cfg_home}) { + mkdir($self->{cfg_home}); + } + ++ if (! -e $xdg_data_home) { ++ mkdir($xdg_data_home); ++ } ++ ++ my $trashdir = $xdg_data_home . "/Trash"; ++ my $trashdir_files = "$trashdir/files"; ++ my $trashdir_info = "$trashdir/info"; ++ ++ if (! -e $trashdir) { ++ mkdir($trashdir); ++ mkdir($trashdir_files); ++ mkdir($trashdir_info); ++ } ++ + if (! -e "$self->{cfg_home}/config") { + my $cfg = { + PathLeft => $ENV{HOME}, |