File w3mir-1.0.10-path.patch of Package w3mir

Overview Repositories Revisions Requests Users Attributes Meta

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;

Places

File w3mir-1.0.10-path.patch of Package w3mir

Places