Index: urpm.pm
===================================================================
--- urpm.pm	(révision 6367)
+++ urpm.pm	(copie de travail)
@@ -165,7 +165,9 @@
     my ($urpm) = @_;
     $< or return;
 
-    my $dir = ($urpm->{urpmi_root} || '') . userdir_prefix($urpm) . $< . "/lib";
+    my $dir = $urpm->{options}{cachedir} ?
+	$urpm->{options}{cachedir} . "/lib":
+	($urpm->{urpmi_root} || '') . userdir_prefix($urpm) . $< . "/lib";
     init_dir($urpm, $dir);
 }
 
@@ -174,7 +176,9 @@
     my ($urpm) = @_;
     $< or return;
 
-    my $dir = ($urpm->{urpmi_root} || '') . userdir_prefix($urpm) . $<;
+    my $dir = $urpm->{options}{cachedir} ?
+        $urpm->{options}{cachedir} :
+	($urpm->{urpmi_root} || '') . userdir_prefix($urpm) . $<;
     init_dir($urpm, $dir);
 }