diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-08-31 16:45:42 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-08-31 16:45:42 +0000 |
| commit | 23fbc6fbd353c88c1331b1ae84ca8e968bcfc5ec (patch) | |
| tree | e82a458de5e8eeebc17284cd8038dc94e29b46e4 | |
| parent | 6af7d70dfb75823e3d442de018eb9ef572f0be0e (diff) | |
| download | mgaonline-23fbc6fbd353c88c1331b1ae84ca8e968bcfc5ec.tar mgaonline-23fbc6fbd353c88c1331b1ae84ca8e968bcfc5ec.tar.gz mgaonline-23fbc6fbd353c88c1331b1ae84ca8e968bcfc5ec.tar.bz2 mgaonline-23fbc6fbd353c88c1331b1ae84ca8e968bcfc5ec.tar.xz mgaonline-23fbc6fbd353c88c1331b1ae84ca8e968bcfc5ec.zip | |
do not reinvent urpm::userdir_prefix()
| -rw-r--r-- | mgaapplet_urpm.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/mgaapplet_urpm.pm b/mgaapplet_urpm.pm index 304f3352..0212e395 100644 --- a/mgaapplet_urpm.pm +++ b/mgaapplet_urpm.pm @@ -5,15 +5,11 @@ package mgaapplet_urpm; use MDK::Common; use urpm::download; -sub userdir_prefix { - my ($_urpm) = @_; - '/tmp/.urpmi-'; -} sub userdir { my ($urpm) = @_; $< or return; - my $dir = ($urpm->{urpmi_root} || '') . userdir_prefix($urpm) . $<; + my $dir = ($urpm->{urpmi_root} || '') . urpm::userdir_prefix($urpm) . $<; mkdir $dir, 0755; # try to create it -d $dir && ! -l $dir or $urpm->{fatal}(1, sprintf("fail to create directory %s", $dir)); |