File w3mir-1.0.10-path.patch of Package w3mir
--- w3http.pm 2001-02-04 22:21:47.000000000 +0100
+++ w3http.pm 2004-10-26 12:17:11.000000000 +0200
@@ -552,12 +552,12 @@
$save=1;
# Find a temporary filename
- $tmpf=url "file:$saveto";
+ $tmpf=url ("file:$saveto", "file:///");
$tmpf->basename($tmpfile);
- $tmpf=$tmpf->unix_path;
-
+ $tmpf=$tmpf->rel;
+
# Find suitable final filename, one with no URL escapes
- $saveto=(url "file:$saveto")->unix_path;
+ $saveto=(url ("file:$saveto", "file:///"))->rel;
# If output to stdout then send it directly there rather than
# using disk unnecesarily.
--- w3mir.PL 2001-02-04 22:21:47.000000000 +0100
+++ w3mir.PL 2004-10-26 11:30:54.000000000 +0200
@@ -649,7 +585,7 @@
unless ref $rum_url_o;
# Derive a filename from the url, the filename contains no URL-quoting
- my($lf_name) = (url "file:$lf_url")->unix_path;
+ my($lf_name) = (url ("file:$lf_url", "file:///"))->rel;
# Make all intermediate directories
&mkdir($lf_name) if $s==0;