gentoo-overlay/www-client/w3mir/files/w3mir-1.0.10-cwd.diff

--- w3mir.PL	2005-12-10 20:39:58.000000000 +0100
+++ w3mir.PL	2005-12-11 12:49:26.000000000 +0100
@@ -209,6 +209,8 @@
 use URI::URL;
 # For flush method
 use FileHandle;
+# for determining current working directory
+use Cwd;
 
 eval '
 use URI;
@@ -581,7 +583,8 @@
     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;
+  # filename is relative to current working directory
+  my($lf_name) = (url "file:".getcwd()."/$lf_url")->unix_path;
 
   # Make all intermediate directories
   &mkdir($lf_name) if $s==0;
@@ -680,9 +683,7 @@
     push(@EXTRASTUFF,$w3http::NOUSER)
       unless ($do_user);
 
-    # YES, $lf_url is right, w3http::query handles this like an url so
-    # the quoting must all be in place.
-    my $binfile=$lf_url;
+    my $binfile=$lf_name;
     $binfile='-' if $s==1;
     $binfile=$nulldevice if $s==2;