blob: 58af17e127762255f0505f673971b95f6c8feba2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
--- w3http.pm.bak Mon Feb 5 00:21:47 2001
+++ w3http.pm Sun Apr 17 21:43:30 2005
@@ -551,13 +551,16 @@
# found at cool sites.
$save=1;
+ my($slash)=($saveto =~ /^\//);
# Find a temporary filename
$tmpf=url "file:$saveto";
$tmpf->basename($tmpfile);
$tmpf=$tmpf->unix_path;
+ $tmpf =~ s~^/~~ if (!$slash);
# Find suitable final filename, one with no URL escapes
$saveto=(url "file:$saveto")->unix_path;
+ $saveto =~ s~^/~~ if (!$slash);
# If output to stdout then send it directly there rather than
# using disk unnecesarily.
|
